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1 . 0  Background 


This  report  serves  two  purposes.  The  first  is  to  document  the  steps 
undertaken  in  designing  a  "Marine  Technology  Database"  (MTD)  model  for 
the  Ocean  Engineering  Branch  (OEB)  of  the  U.  S.  Coast  Guard  Research  & 
Development  Center  (R&DC).  Secondly,  the  report  functions  as  a  User's 
Guide  for  the  MTD  System.  This  effort  constitutes  partial  completion  of 
one  of  the  tasks  outlined  in  the  document  "Proposed  Method  of 
Information  Presentation"  prepared  by  OEB  in  December  1986  (Reference 
1).  That  document  responded  to  a  request  from  the  Coast  Guard's  Office 
of  Acquisition  to  perform  a  series  of  technology  surveys  in  support  of 
the  WLB/WLM  Capability  Replacement  Project  (Reference  2).  The  design 
and  development  of  the  system  was  performed  by  a  representative  of 
Vanguard  Technologies  Corporation  under  GSA  Task  Order  No.  217816 
(Reference  3)  and  fulfills  the  requirements  as  set  forth  for 
"Deliverables  4,  5,  &  6"  of  the  GSA  task  order. 


2.0  Introduction 


The  U.  S.  Coast  Guard's  Office  of  Acquisition  has  been  tasked  with 
the  procurement  of  a  ship  system  to  replace  the  present  aging  buoy 
tender  fleet.  The  current  mission  needs  statement  requires  a 
multi-mission  platform  capable  of  performing  functions  not  normally 
expected  of  the  present  class  of  ships.  Essentially,  OEB  was  tasked 
with  performing  a  series  of  technology  surveys  to  provide  the  Office  of 
Acquisition  with  timely  information  on  Aids  to  Navigation  practices, 
marine  vessels  used  throughout  the  world  for  buoy  tending  and  offshore 
supply  purposes,  and  on  marine  subsystems  associated  with  various 
aspects  of  ship  technology. 

.✓Eight  areas  of  interest  have  been  identified _  and-; are  being 
investigated  by  OEB.  These^include  Aids  to  Navigation  (foreign  and 
domestic  practices),  foreign  Aids  to  Navigation  tenders, 
Offshore/Support/Work  vessels,  hull  configurations,  propulsion  systems, 
propulsor  systems,  weight  handling  systems,  and  vessel  automation 
sub-systems ._The  initial  presentation  of  the  technology  assessement 
will  be  via  narrative  report;  to  support  future  analysis 
requirements,  a  computerized  database  is  being  developed  for  certain  of 
the  catagories  mentioned  above. 


3 . 0  Approach 


In  analyzing  the  requirements  for  the  Marine  Technology  Database, 
it  became  apparant  that  it  is  in  the  best  interests  of  the  U.  S.  Coast 
Guard  to  centralize  and  standardize  database  management  systems  insofar 
as  areas  of  application  are  concerned.  The  R&D  Center  had  previously 
been  tasked,  through  the  Advanced  Marine  Vehicles  (AMV)  project,  to 
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develop  a  Ship  Information  database.  This  system  is  intended,  among 
other  purposes,  to  be  used  for  capturing  data  gathered  during  ship 
testing  programs.  The  design,  produced  by  the  Marine  Systems  Branch 
(MSB)  of  the  R&D  Center,  has  been  completed  and  a  contract  will  be 
awarded  in  the  near  future  for  implementation  of  the  system. 

The  decision  was  made  prior  to  inception  of  the  current  project  to 
implement  the  AMV  database  via  the  4th  Generation  Language  FOCUS  on  a 
DEC  Microvax  II  supermicro  system  (  App  C  contains  available 
documentation  on  the  AMV  System  ).  In  the  interests  of  standardization 
and  to  facillitate  sharing  of  data  between  the  two  systems,  the 
decision  was  made  by  OEB  to  develop  the  MTD  system  in  the  same 
environment.  The  fact  that  FOCUS  contains  a  sophisticated  query 
language  should  enable  extensive  "ad  hoc"  reporting  from  both  systems 
in  the  future  by  casual  users. 


4.0  MTD  Model 


A  preliminary  analysis  of  the  eight  areas  of  interest  was  performed 
to  determine  suitability  for  incorporation  into  a  computerized  database 
and,  if  suitable,  to  determine  if  the  AMV  system  would  be  the 
appropriate  system.  Foreign  Aids  to  Navigation  practices  was  determined 
to  be  a  subject  area  best  left  in  document  form;  no  particular 
advantage  in  building  a  computerized  database  in  this  area  can  be  seen 
at  this  time.  Specifications  on  both  foreign  buoy  tenders  and  various 
offshore/supply/work  vessels  (domestic  and  foreign)  can  be  entered  into 
the  AMV  database  system;  the  structure  is  appropriate. 

The  five  remaining  marine  technology  areas,  hull  configurations, 
propulsion  systems,  propulsor  systems,  weight  handling  systems,  and 
vessel  automation  systems,  were  settled  on  for  inclusion  into  the  MTD 
system.  The  MTD  design  consists  of  a  master  file  description  for  each 
of  the  five  topics,  with  two  auxiliary  files  containing 

manufacturer /vendor  information  and  literature  search  data.  Each  of  the 
five  master  files  contains  a  segment  which  can  be  used  to  enter  vessel 
identification  codes  compatible  with  the  AMV  system.  (A  particular  hull 
configuration  might  be  represented  in  the  AMV  system  by  a  number  of 
different  ships,  for  example.)  This  mechanism  will  be  the  link  between 
the  two  database  management  systems. 

Detailed  specifications  of  the  MTD  model  can  be  found  in  Appendix  A 
of  this  report.  These  include  FOCUS  Master  File  Descriptions  for  the 
five  main  files  and  the  two  auxiliary  files,  FOCUS  "Picture"  diagrams 
for  each  file,  and  the  data  entry  formats  for  each  field  of  each  file. 


5.0  Implementation 


File  maintenance  routines  incorporating  Add,  Change,  and  Delete 
logic  and  standard  reporting  programs  were  developed  for  each  file  and 
integrated  into  a  single  menu  driven  application.  The  system  is 
presently  mounted  on  the  Marine  Systems  Branch's  DEC  Microvax  II. 
Appendix  B  contains  the  FOCUS 
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"FOCEXEC"  routines  that  form  the  application  as  well  as  documentation 
on  how  to  use  the  system. 


6 . 0  Summary 


The  nature  of  the  WLB/WLM  Technology  Survey  project  is  such  that  it 
is  anticipated  that  reporting  requirements  will  become  more  defined  as 
time  goes  on.  The  prototype  system  developed  should  be  viewed  as  any 
other  model;  changes  in  the  database  structure  are  to  be  expected  and 
can  be  responded  to  as  long  as  proper  procedures  are  followed. 
Particular  attention  will  need  to  be  paid  to  documentation  of  the 
system  to  ensure  that  users  are  kept  up  to  date  after  each  change  is 
made . 


7 . 0  Re f  e rences 
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1 . 0  Introduction 


The  enclosed  documentation  presents  a  logical  design  of  the  Marine 
Technology  Database.  Following  the  system  file  diagram  on  the  next 
page,  detailed  descriptions  of  the  HULLCNFG,  PROPULSN,  PROPULSR, 
WGTHANDL ,  VESSAUTO,  MFRREF,  and  OEBREF  files  are  presented. 

It  is  anticipated  that  structures  will  change  as  the  project 
progresses;  it  may  prove  neccessary,  for  example,  to  create  a  new  file 
to  handle  a  specific  area  such  as  ride  control  systems  in  more  detail. 
As  the  database  is  implemented  on  the  MicroVAX  II,  special  attention 
will  need  to  be  paid  to  "version  control"  and  system  documentation. 
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3.0  File  HULLCNFG  (  Hull  Configurations  ) 
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The  Hull  Configuration  file  provides  the  means  for  storing  data  on 
various  hull  designs.  Using  a  combination  of  a  standard  hull  type  code 
and  a  standard  hull  subtype  code  as  an  entry  key  to  the  file,  three 
types  of  information  will  be  available  as  follows: 

a)  Hull  design  descriptions  and  specifications  for  a  number  of 
designs  associated  with  each  HULL-TYP/HULL-STYP 

b)  Listing  of  ships  conforming  to  the  HULL-TYP/HULL-STYP  available 
in  the  AMV  database  (which  will  give  detailed  operational 
characteristics  etc.  on  specific  ships). 

c)  Listing  of  literature  references  cataloged  by  OEB  on  the 
HULL-TYP/HULL-STYP  in  question. 

The  following  pages  provide  a  file  structure  diagram,  descriptions 
of  the  segments  in  the  file,  and  descriptions  of  the  fields  in  each 
segment . 


■  V.SVA  .V.V.V.VvS'V 


3.2  MASTER  FILE  DESCRIPTION  FOR  ' HULLCNFG ' 

THE  HULL  CONFIGURATION  FILE  CONTAINS  DATA  ON  VARIOUS  TYPES  OF  SHIP 
HULLS.  REFER  TO  THE  DOCUMENT  "MARINE  TECHNOLOGY  DATABASE  ( MTD ) 
USER'S  GUIDE”  FOR  MORE  INFORMATION. 


DESIGNED  FOR  :  USCG  R&D  CENTER,  OCEAN  ENGINEERING  BRANCH 
DESIGNED  BY  :  M.  J.  STEVENS  (VTC) 

DATE  LAST  REV  :  5/11/87 


FILE-HULLCNFG,  SUFFIX-FOC 
SEGNAME-HULLS ,  SEGTYPE-S2 

FIELD-HULL_TYP  , ALIAS-HTYP  .FORMAT- 

FIELD-HULL_STYP  .ALIAS-HSTYP  , FORMAT- 

FIELD-HULL_COMl  .ALIAS-HCOMl  .FORMAT- 

FIELD-HULL_COM2  .ALIAS-HCOM2  .FORMAT- 

FIELD-HULL_COM3  , ALIAS-HCOM3  .FORMAT- 

SEGNAME-HULLDESN,  PARENT-HULLS ,  SEGTYPE-S2 

FIELD-MFR_ID  , ALIAS-MID  , FORMAT- 

FIELD-MFR_NO  , ALIAS-MNO  .FORMAT- 

FIELD-MFR_COMl  .ALIAS-MCOM1  .FORMAT- 

FIELD-MFR_COM2  , ALIAS-MCOM2  .FORMAT- 

FIELD-MFR_COM3  , ALIAS-MCOM3  , FORMAT- 

SEGNAME— HULLDESC .  PARENT-HULLDESN,  SEGTYPE-U 


FIELD-HULL_SHAPE 
FIELD-HULL_BTYP 
FIELD-HULL~RTYP 
F I ELD-HULL_MAT 
FIELD-HULL_PTHCK 
FIELD-HULL  FTYP 
FIELD-HULL_WGRPS 
FIELD— HU_COMl 
FIELD-HU_COM2 
FIELD-HU  COM3 


, ALIAS-HSHP 
, ALIAS-HBTYP 
, ALIAS-HSTYP 
, ALIAS-HMAT 
, ALIAS-HPT 
, ALIAS-HFTYP 
, ALIAS -HWG 
, ALIAS-HUCOMl 
. ALIAS-HUCOM2 
, ALIAS-HUCOM3 


, FORMAT 
,  FORMAT’ 
,  FORMAT' 
,  FORMAT' 
,  FORMAT' 
,  FORMAT' 
,  FORMAT' 
,  FORMAT' 
,  FORMAT' 
,  FORMAT’ 


SEGNAME-HULLSPEC,  PARENT-HULLDESN,  SEGTYPE-U 


FIELD-HULL_LOA 

FIELD-HULL_LBP 

FIELD-HULL_BEAM 

FIELD-HULL_MX_DRFT 

FIELD-HULL_MN_DRFT 

FIELD-HULL_LS_DRFT 

FIELD-HULL_FBD 

FIELD-HULL_FL_DIS 

FIELD-HULL_DWT 

FI ELD-HULL_DRA_ST 

FIELD-HULL_DRA_MC 

FIELD-HULL_MX_DPTH 

FIELD-HULL_BLCK_CO 

FIELD-HULL  PRIS_CO 

FIELD-SPEC~COMl 

FIELD-SPEC_COM2 

FIELD-SPEC  COM3 


, ALIAS-HLOA 
, ALIAS-HLBP 
, ALIAS-HBM 
, ALIAS-HMXDFT 
, ALIAS -HMND FT 
, ALIAS -HLSDFT 
, ALIAS-HFBD 
, ALIAS-HDIS 
, ALIAS-HDWT 
, ALIAS-HDRAS 
, ALIAS-HDRAM 
, ALIAS-HMXD 
, ALIAS-HBCF 
, ALIAS-HPCF 
, ALIAS-SCOMl 
, ALIAS-SCOM2 
. ALIAS-SCOM3 


, FORMAT 
, FORMAT 
, FORMAT 
, FORMAT 
, FORMAT 
, FORMAT 
, FORMAT 
, FORMAT 
, FORMAT 
, FORMAT 
, FORMAT 
, FORMAT 
, FORMAT 
, FORMAT 
, FORMAT 
, FORMAT 
, FORMAT 
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SEGNAME-RIDECNTR ,  PARENT-HULLDESN,  SEGTYPE-U 


FIELD-CNTR_TYPE 
FIELD-CNTR_DESC 
FIELD-CNTR  COMl 


, ALIAS-CTYP 
, ALIAS-CDSC 
, ALIAS-CCOMl 


, FORMAT- 
, FORMAT- 
, FORMAT- 


I 


FIELD-CNTR_C0M2 
FIELD-CNTR  COM3 


,ALIAS-CC0M2 
, ALIAS-CC0M3 


SEGNAME-AMVREF,  PARENT-HULLS,  SEGTYPE-S1 

FIELD— SHI P_ID  , ALIAS-SID  , F0RMAT-A5 

FIELD-SHIP_NAME  ,ALIAS-SNM  , FORMAT-A20 

FIELD-SHIP  FLAG  ,ALIAS-SFG  , FORMAT-AIO 
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3.3  File  HULLCNFG  (Hull  Configurations)  Data  Entry  Formats 


Field  Name 

Max  Width 

Field  Description 

Segment:  HULLS 

Main  segment  in  file;  two  part  key 
using  HULL-TYP  and  HULL-STYP  for  access 

to  the  file 

HULL-TYP 

6(A) 

Standard  code  for  hull  type;  ex  SWATH, 
SES ,  DIS ,  etc . 

HULL-STYP 

4(A) 

Standard  code  for  hull  subtype;  ex 

DEST,  TWLR  (trawler  etc.) 

HULL-C0M1 

70(A) 

General  comment  field  1 

HULL-C0M2 

70(A) 

General  comment  field  2 

HULL-C0M3 

70(A) 

General  comment  field  3 

Segment:  HULLDESN 

Controlling  segment  of  file  for 
detailed  data  on  hull  designs 

MFR-ID 

5(A) 

Manufacturer  or  Naval  Architect/Design 
firm  (code  number)  responsible  for 
design 

MFR-NO 

12(A) 

Manufacturer  or  design  firm's 
designation  code/serial  number  for 
design 

MFR-COM 1 

70(A) 

General  comment  field  1 

MFR-C0M2 

70(A) 

General  comment  field  2 

MFR-C0M3 

70(A) 

General  comment  field  3 

Segment:  HULLDESC 

Unique  segment  associated  with  each 
iteration  of  the  HULLDESN  segment 
containing  general  descriptive  data  on 
the  hull 

HULL-SHAPE 

6(A) 

Standard  code  for  hull  shape;  ex  RDB 
(round  bottom),  DVEE  etc. 

HULL-BTYP 

6(A) 

Standard  code  for  bow  type;  ex  BULB 
(bulbous),  CONE,  etc. 

HULL-RTYP 

6(A) 

Standard  code  for  stern  type;  ex  CAN 
(canoe),  CNT  (counter),  etc. 

HULL-MAT 

20(A) 

Material  used  in  construction  of  hull 

HULL-PTHCK 

2 ( N )  .  4(N  ) 

Plate  thickness  if  applicable 

HULL-FTYP 

10(A) 

Framing  type  used  in  construction 

HULL-WGRPS 

2  (  N  ) 

Number  of  watertight  compartment  groups 
in  hull 

HU-C0M1 

70(A) 

General  comment  field  1 

HU-COM2 

70(A) 

General  comment  field  2 

HU-C0M3 

70(A) 

General  comment  field  3 

Segment:  HULLSPEC 


Unique  segment  associated  with  each 
iteration  of  the  HULLDESN  segment 
containing  specifications  of  the  hull 


HULL- 

HULL- 

HULL- 

HULL- 

HULL- 

HULL- 

HULL- 

HULL- 

HULL- 

HULL- 

HULL- 

HULL- 

HULL- 

HULL- 

SPEC- 

SPEC- 

SPEC- 


LOA 

LBP 

BEAM 

MX-DRFT 

MN-DRFT 

LS-DRFT 

FBD 

FL-DIS 

DWT 

DRA-ST 

DRA-MC 

MX-DPTH 

BLCK-CO 

PRIS-CO 

COM1 

COM2 

COM3 


Segment:  RIDECNTR 


CNTR-TYPE 


CNTR-DESC 
CNTR-COM 1 
CNTR-COM2 
CNTR-C0M3 

Segment:  AMVREF 


SHIP-ID 


SHIP-NAME 

SHIP-FLAG 

Segment:  LITREF 


REF-NUM 


REF-DESC 


5(N).1(N)  Length  overall  of  the  hull 
2(N).1(N)  Length  between  perpendiculars 
3(N).1(N)  Max  beam  of  hull 
2 ( N  )  .  1  ( N )  Max  draft  of  hull 
2  (  N  )  .  1  (  N  )  Mean  draft  of  hull 
2(N).1(N)  Light  ship  draft 
2(N).1(N)  Freeboard  of  hull 
6(N).1(N)  Full  load  displacement  of  hull 
6(N).1(N)  Hull  deadweight 
3(N).1(N)  Deadrise  angle  at  stern 
3(N).1(N)  Deadrise  angle  at  raidchine 
2(N).1(N)  Max  depth  of  hull 
3(N).1(N)  Block  coefficient  of  hull 
3(N).1(N)  Prismatic  coefficient  of  hull 
70(A)  General  comment  field  1 

70(A)  General  comment  field  2 

70(A)  General  comment  field  3 

Unique  segment  associated  with  each 
iteration  of  the  HULLDESN  segment 
containing  data  on  the  hull's  ride 
control  components 

4(A)  Standard  code  for  ride  control 

technology  incorporated  into  the  hull 
design 

40(A)  Description  of  ride  control  technology 

70(A)  General  comment  field  1 

70(A)  General  comment  field  2 

70(A)  General  comment  field  3 

Controlling  segment  of  file  for  cross- 
reference  information  to  the  AMV  Ships 
file 

5(A)  Ship  ID  number  for  ship  contained  in 

AMV  database  using  the  hull 
configuration;  same  format  as  that  used 
in  the  AMV  system 

20(A)  Name  of  ship  in  AMV  Database 

10(A)  Country  ship  registered  in 

Controlling  segment  of  file  for  cross- 
reference  information  to  the  OEB 
literature  reference  database 

6(A)  Reference  number;  OEB  internal  format 

for  literature  reference  numbers 
40(A)  Brief  description  of  reference 


40(A) 

70(A) 

70(A) 

70(A) 


5(A) 


20(A) 

10(A) 
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4.0  File  PROPl'LSN  (  Propulsion  Systems  ) 


The  Propulsion  System  file  serves  the  purpose  of  storing  data  on 
various  propulsion  systems  available  for  marine  power  plant 
configurations.  Data  is  also  included  on  power  transmission  systems 
associated  with  the  propulsion  system.  Access  to  the  file  is  via  a  two 
part  key  consisting  of  the  PRO-TYP  and  PRO-STYP  fields.  Standard  codes 
are  employed  for  each  of  those  two  fields.  Three  primary  types  of 
information  will  be  available  as  follows: 

a)  Propulsion  system  descriptions  and  specifications,  including 
data  on  transmission  components 

b)  Listing  of  ships  utilizing  the  particular  propulsion  system 
covered  that  have  been  entered  into  the  AMV  database 

c)  Listing  of  literature  references  cataloged  by  OEB  on  the 
PR0-TYP/PR0-STYP  in  question. 

The  following  pages  provide  a  file  structure  diagram,  descriptions 
of  the  segments  in  the  file,  and  descriptions  of  the  fields  in  each 
segment . 
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....................................................... 

4.2  MASTER  FILE  DESCRIPTION  FOR  'PROPULSN'  $ 

$ 

THE  PROPULSION  FILE  CONTAINS  DATA  ON  VARIOUS  TYPES  OF  MARINE  PROPUL-  $ 
SION  SYSTEMS.  REFER  TO  THE  DOCUMENT  "MARINE  TECHNOLOGY  DATABASE  $ 

( MTD )  USER'S  GUIDE"  FOR  MORE  INFORMATION.  § 

$ 

- 5 

DESIGNED  FOR  :  USCG  R&D  CENTER,  OCEAN  ENGINEERING  BRANCH  $ 

DESIGNED  BY  :  M.  J.  STEVENS  (VTC)  $ 

DATE  LAST  REV  :  5/11/87  $ 

. . - . $ 

$ 

FILE-PROPULSN,  SUFFIX-FOC  ,$ 

SEGNAME-PROTYP,  SEGTYPE-S2  ,$ 

FIELD-PRO_TYP  ,ALIAS-PTYP  , FORMAT-A6  ,$ 

FIELD-PRO_STYP  ,ALIAS-PSTYP  , FORMAT-A4  ,$ 

FIELD-PRO_COMl  ,ALIAS-PCOMl  ,FORMAT-A70  ,$ 

FIELD-PRO_COM2  ,ALIAS-PCOM2  , FORMAT-A7  0  ,$ 

FIELD-PRO  COM3  ,ALIAS-PCOM3  , FORMAT-A70  ,$ 


SEGNAME-PROSYS,  PARENT- 

PROTYP ,  SEGTYPE- 

S2 

FIELD-MFR  ID 

, ALIAS-MID 

, FORMAT-A5 

,$ 

FIELD-MFR  NO 

, ALIAS-MNO 

, FORMAT-A12 

,$ 

FIELD-MFR  COM1 

, ALIAS-MCOM1 

, FORMAT-A7  0 

,$ 

FIELD-MFR  COM2 

, ALIAS— MCOM2 

, FORMAT-A70 

,$ 

FIELD-MFR  COM3 

, ALIAS-MCOM3 

, FORMAT-A70 

r$ 

SEGNAME-PRODESC ,  PARENT 

-PROSYS,  SEGTYPE 

-U 

,$ 

FIELD-PRO  FNCTN 

, ALIAS-PFN 

, FORMAT-A20 

,$ 

FIELD-PRO  HP  TYP 

, ALIAS-PHPTYP 

, FORMAT-A4 

,$ 

FIELD-PRO  HP  COM 

, ALIAS-PHPCOM 

,FORMAT-A20 

,$ 

FIELD-PRO  FUEL 

, ALIAS-PFUEL 

, FORMAT-AlO 

,$ 

FIELD-PRO  ST  MTHD 

, ALIAS-PSTMTH 

, FORMAT-A20 

,$ 

FIELD-PRO  TURBO 

, ALIAS-PTB 

, FORMAT-A1 

,$ 

FIELD-PR  COM1 

, ALIAS-PRCOM1 

, FORMAT-A7  0 

,$ 

FIELD-PR  COM2 

, ALIAS-PRCOM2 

, FORMAT-A70 

,$ 

FIELD-PR  COM3 

, ALIAS-PRCOM3 

, FORMAT-A7  0 

,$ 

SEGNAME-PROSPEC,  PARENT 

-PROSYS,  SEGTYPE 

-U 

,$ 

FIELD-PRO  HP 

, ALIAS-PHP 

, FORMAT-15 

,$ 

FIELD-PRO  RPM 

, ALIAS-PRPM 

, FORMAT- I 4 

,$ 

FIELD-PRO  VOL 

, ALIAS-PVOL 

,  FORMAT- 1 5 

,$ 

FIELD-PRO  WEIGHT 

, ALIAS-PWGHT 

,  FORMAT- F 5.1 

,$ 

FIELD-PRO  LEN 

, ALIAS-PLEN 

, FORMAT-F4 . 1 

,$ 

FIELD-PRO  WIDTH 

, ALIAS-PWTH 

,  FORMAT-F3 . 1 

,$ 

FIELD-PRO  HEIGHT 

, ALIAS-PHGHT 

, FORMAT-F3 . 1 

FIELD-PRO  SFC 

, ALIAS-PSFC 

,  FORMAT-F3 . 1 

,$ 

FIELD-PRO  PWR  CST 

, ALIAS -PPWRC 

,  FORMAT-F4 . 1 

,$ 

FIELD-PRO  MNT  CST 

, ALIAS-PMCST 

,  FORMAT-F4 . 1 

,$ 

FIELD-PRO  MNT  MHR 

, ALIAS-PMNMH 

, FORMAT- I 5 

,$ 

FIELD-PRO  CYCLE 

, ALIAS -PC YCL 

, FORMAT- 11 

,$ 

FIELD-PRO  NO  CYL 

, ALIAS -PNOCYL 

, FORMAT- I 2 

,$ 

FIELD-PRO  STROK 

, ALIAS -PS TROK 

, FORMAT-F3 . 1 

,$ 

FIELD-PRO- BORE 

, ALIAS-PBORE 

,  FORMAT-F4 . 1 

,$ 

FIELD-PRO  MEP 

, ALIAS-PMEP 

, FORMAT-F4 . 1 

,$ 

FIELD-PRO  REL  RAT 

, ALIAS-PRRAT 

, FORMAT-A4 

,$ 

FIELD-PRO  ORD  TM 

, ALIAS-POTM 

, FORMAT-AlO 

,$ 

FIELD-PRO  DIS 

, ALIAS-PDIS 

, FORMAT- F 5. 1 

,$ 

FIELD-SPEC  COM1 

, ALIAS-SCOMl 

, FORMAT-A70 

,$ 

FIELD-SPEC  COM2 

, ALIAS-SC0M2 

, FORMAT-A70 

,$ 

FIELD-SPEC  COM3 

, ALIAS-SCOM3 

, FORMAT-A70 

,$ 
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SEGNAME* 

FIELD- 

FIELD. 

FIELD- 

FIELD* 

FIELD- 

FIELD. 

FIELD. 

FIELD- 

FIELD* 

FIELD- 

SEGNAME* 

FIELD- 

FIELD- 

FIELD. 


■PRODRV ,  PARENT 

■DRV_MFR 

■DRV_MOD 

■DRV_TYP 

>DRV_RED_RAT 

■DRV_VOL 

■DRV_WEIGHT 

*DRV_REV 

•DRV_COMl 

■DRV_C0M2 

>DRV_C0M3 

•AMVREF ,  PARENT 
■SHIP_ID 
■SHIP_NAME 
■SHIP  FLAG 


■PROSYS 
, ALIAS 
, ALIAS 
.ALIAS 
.ALIAS 
.ALIAS 
.ALIAS 
.ALIAS 
.ALIAS 
.ALIAS 
.ALIAS 


,  SEGTYPE- 

-DMFR 

-DMOD 

-DTYP 

-DREDR 

-DVOL 

-DWEIGHT 

-DREV 

-DCOM1 

-DCOM2 

-DCOM3 


•PROTYP ,  SEGTYPE- 
, ALIASES  ID 
.ALIAS-SNM 
.ALIAS-SFG 


, FORMAT- 1  3 
, FORMAT-A1 0 
, FORMAT-AIO 
, FORMAT-A1 0 
, FORMAT-F 4  .  ] 
, FORMAT- F 4. J 
,  FORMAT-A1 
, FORMAT-A7  0 
, FORMAT-A7  0 
, FORMAT-A7  0 


SI 

, FORMAT-A5 
, FORMAT-A20 
, FORMAT-AIO 


4.3  FILE  PROPl'LSN  (  Propulsion  Systems  )  Data  Entry  Formats 


Field  Mame 

Max  W i d  t  h 

Field  Description 

Segment  :  PROTY  P 

Main  segment  in  file;  two  Dart  kev 
using  PRO-TYP  and  PRO-STYP ‘  f  i e  1  d s  f o r 

access 

PRO-TYP 

6(A) 

Standard  code  for  propulsion  system 
type;  ex  D S £ L  for  diesel 

PRO-STYP 

4(A) 

Standard  code  for  propulsion  system 
subtype;  ex  ttfr  for  high  speed 

PRO-COM  1 

70(A) 

General  comment  field  1 

PRO-COM2 

70(A) 

General  comment  field  2 

PRO-COM3 

70(A) 

General  comment  field  3 

Segment  :  PROSYS 

Controlling  segment  of  file  for 
detailed  data  on  propulsion  systems. 

MFR-ID 

5(A) 

Code  number  for  manufacturer  of  system 

MFR-NO 

12(A) 

Manufacturer's  model  number 

MFR-COM1 

70(A) 

General  comment  field  1 

MFR-C0M2 

70(A) 

General  comment  field  2 

MFR-C0M3 

70(A) 

General  comment  field  3 

Segment:  PRODESC 

Unique  segment  associated  with  each 
iteration  of  the  Prosys  segment 
containing  general  descriptive  data  on 
the  system 

PRO-FNCTN 

20(A) 

Function  of  the  system  (eg  main, 
thruster) 

PRO-HP-TYP 

4(A) 

Units  for  HP  rating 

PRO-HP-COM 

20(A) 

Comment  on  HP  convention 

PRO-FUEL 

10(A) 

Fuel  type  for  system 

PRO-ST-MTHD 

20(A) 

Starting  method  for  system 

PRO-TURBO 

1(A) 

Turbocharged  (Y/N) 

PR-COM1 

70(A) 

General  comment  field  1 

PR-C0M2 

70(A) 

General  comment  field  2 

PR-COM3 

70(A) 

General  comment  field  3 

Segment:  PROSPEC 

Unique  segment  associated  with  each 
iteration  of  the  Prosys  segment 
containing  specifications  of  the  system 

PRO-HP 

5(N) 

Horsepower  of  system 

PRO-RPM 

4  (  N  ) 

RPM  at  rated  horsepower 

PRO-VOL 

5(N) 

Volume  of  system 

PRO-WEIGHT 

4(N).1(N) 

Weight  of  system 

PRO-LEN 

3(N).1(N) 

Length  of  system 

PRO-WIDTH 

2(N) .  1  (N) 

Width  of  system 

PRO-HEIGHT 

2  (  Jf )  .  1  (  N  ) 

Height  of  system 

PRO- S  FC 

PRO-PWR-CST 

PRO-MNT-CST 

PRO-MHT-M  HR 

PRO-CYCLE 

PRO-NO-CYL 

PRO-STROK 

PRO-BORE 

PRO-MEP 

PRO-REL-RAT 

PRO-ORD-TM 

PRO-DIS 

SPEC-COM1 

SPEC-COM2 

SPEC -COM 3 

Segment:  PRODRV 


DRV-MFR 

DRV -MOD 

DRV-TYP 

DRV-RED-RAT 

DRV-VOL 

DRV-WEIGHT 

DRV-REV 

DRV-COM1 

DRV-COM2 

DRV-COM3 

Segment :  AMVREF 


SHIP-ID 


SHIP-NAME 

SHIP-FLAG 

Segment :  LITREF 


REF-NUM 


REF-DESC 


ro'itu.'u.iii 


2  (  N  )  .  1  (  N  ) 

3  (:■•).  1  ( N ) 
3  (  N  )  •  1  (  N  ) 
5(H) 

1  (  N ) 

2  ( N ) 

2  (  M  )  .  1  (  N  ) 

3(N).1(N) 

3  (  N  )  •  1(H) 
4(A) 

10(A) 

4(N) . 1 (N) 
70(A) 
70(A) 
70(A) 


3(H) 

10(A) 
10(A) 
10(A) 
3(H). 1(H) 
3(H). 1(N) 
1(A) 

70(A) 

70(A) 

70(A) 


5(A) 


20(A) 

10(A) 


6(A) 

40(A) 


•  V  \  «.  V  A  ,  / 


Specific  fuel  consumption 
Power  cost  in  SHP/S 
Annual  maintenance  costs 
Annual  maintenance  man-hours 
Engine  cycles  (2/4) 

Humber  of  cylinders 
Stroke  of  piston 
Bore  of  cylinder 
Mean  Effective  Pressure 
Reliability  rating  of  engine 
Ordering  lead  time 
Displacement  of  engine 
General  comment  field  1 
General  comment  field  2 
General  comment  field  3 

Unique  segment  associated  with  each 
iteration  of  the  Prosys  segment 
containing  data  on  the  system's  drive 
components 

Code  number  for  manufacturer  of  drive 

Manufacturer's  model  number  of  drive 

Type  of  drive 

Drive  reduction  ratio 

Volume  of  drive 

Weight  of  drive 

Reversing  ( Y/H ) 

General  comment  field  1 
General  comment  field  2 
General  comment  field  3 

Controlling  segment  of  file  for  cross- 
reference  information  to  the  AMV  Ships 
file 

Ship  ID  number  for  ship  contained  in 
AMV  database  using  the  propulsion 
system;  same  format  as  that  used  in  the 
AMV  system 

Name  of  ship  in  AMV  Database 
Country  ship  registered  in 

Controlling  segment  of  file  for  cross- 
reference  information  to  the  0EB 
literature  reference  database 

Reference  number;  0EB  internal  format 
for  literature  reference  numbers 
Brief  description  of  reference 
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5.0  FILE  PROPULSR  (  Propulsor  Systems  ) 


The  Propulsor  file  provides  a  means  of  storing  data  on  various 
propulsor  systems.  Using  a  combination  of  a  standard  propulsor  type 
code  and  a  standard  propulsor  subtype  code  as  an  entry  key  to  the  file, 
three  types  of  information  will  be  available  as  follows: 

a)  Propulsor  system  descriptions  and  specifications  for  a  number  of 
designs  currently  and  potentially  available  associated  with  each 
PROP-TYP/PROP-STYP 

b)  Listing  of  ships  conforming  to  the  PROP-TYP/PROP-STYP  available 
in  the  AMV  database  (which  will  give  detailed  operational 
characteristics  etc.  on  specific  ships). 

c)  Listing  of  literature  references  cataloged  by  OEB  on  the 
PROP-TYP/PROP-STYP  in  question. 

The  following  pages  provide  a  file  structure  diagram,  descriptions 
of  the  segments  in  the  file,  and  descriptions  of  the  fields  in  each 
segment . 


$  5.2  MASTER  FILE  DESCRIPTION  FOR  'PROPULSR' 

$ 

$  THE  PROPULSOR  FILE  CONTAINS  DATA  ON  VARIOUS  TYPES  OF  MARINE  PROPUL- 
$  SOR  SYSTEMS.  REFER  TO  THE  DOCUMENT  "MARINE  TECHNOLOGY  DATABASE  ( MTD ) 
$  USER'S  GUIDE"  FOR  MORE  INFORMATION. 


USCG  R&D  CENTER,  OCEAN  ENGINEERING  BRANCH 
M.  J.  STEVENS  ( VTC ) 

5/11/87 


FILE-PROPULSR,  SUFFIX-FOC 
SEGNAME-PROTYP,  SEGTYPE-S2 

FIELD-PROJTYP  ,ALIAS-PTYP  , FORMAT* 
FIELD-PRO_STYP  .ALIAS-PSTYP  , FORMAT* 
FIELD»PRO_COM1  ,ALIAS-PCOMl  , FORMAT- 
FIELD-PRO_COM2  ,ALIAS-PCOM2  , FORMAT- 
FIELD-PRO  COM3  , ALIAS-PCOM3  , FORMAT- 


SEGNAME-PROSYS,  PARENT-PROTYP ,  SEGTYPE-S2 

FIELD-MFR_ID  , ALIAS-MID  , FORMAT- 

FI ELD-MFR_NO  ,ALIAS-MNO  , FORMAT- 

FIELD-MFR_COMl  ,ALIAS-MCOMl  , FORMAT- 

FIELD-MFR_COM2  ,ALIAS-MCOM2  .FORMAT- 

FIELD-MFR_COM3  ,ALIAS-MCOM3  .FORMAT- 

SEGNAME-PRODESC ,  PARENT-PROSYS ,  SEGTYPE-U 


FIELD-PRO_TRAIN 

FIELD-PRO_MAT 

FIELD-PRO~VAR_PTCH 

FIELD-PRO_CNT_PTCH 

FIELD-PRO__FULL_REV 

FI ELD-PRO_DUCTED 

FIELD-PRO_TUNNEL 

FIELD-PR_COMl 

FIELD-PR_COM2 

FIELD-PR  COM3 


, ALIAS-PTRN 
, ALIAS-PMAT 
, ALIAS-PVARP 
, ALIAS-PCNTP 
, ALIAS-PFLREV 
, ALIAS -PDUCT 
, ALIAS-PTUN 
, ALIAS -PRCOMl 
, ALIAS-PRCOM2 
, ALIAS-PRCOM3 


, FORMAT- 
, FORMAT- 
, FORMAT- 
, FORMAT- 
, FORMAT- 
, FORMAT- 
, FORMAT- 
, FORMAT- 
, FORMAT. 
.FORMAT- 


SEGNAME-PROSPEC,  PARENT-PROSYS,  SEGTYPE-U 


FIELD-PRO_DIA 
FIELD-PRO_WEIGHT 
FIELD— PRO_PTCH_MX 
FIELD-PRO_NO_BLDS 
F I ELD- PRO_AREA_RAT 
FIELD-SPEC_COMl 
FIELD-SPEC_COM2 
FIELD-SPEC  COM3 


, ALIAS-PDIA 
, ALIAS-PWGT 
, ALIAS-PPMX 
, ALIAS-PNBLD 
, ALIAS-PARAT 
, ALIAS-SCOM1 
, ALIAS-SC0M2 
, ALIAS-SC0M3 


, FORMAT- 
, FORMAT- 
, FORMAT- 
, FORMAT- 
, FORMAT- 
, FORMAT- 
, FORMAT- 
, FORMAT- 


SEGNAME-SHFTSPEC,  PARENT-PROSYS,  SEGTYPE-U 


FIELD-SH_ANGL 
FIELD-SH_MAT 
FI ELD-SH_OD 
FIELD-SH_ID 
FIELD-SH_SMOD 
FIELD-SH_COMl 
FIELD-SH_COM2 
FIELD-SH  COM3 


, ALIAS-SANGL 
, ALIAS-SMAT 
, ALIAS-SOD 
, ALIAS-SID 
, ALIAS-SSMOD 
, ALIAS-SCOM1 
, ALIAS-SCOM2 
, ALIAS-SCOM3 


, FORMAT- 
, FORMAT- 
, FORMAT- 
, FORMAT- 
, FORMAT- 
, FORMAT- 
, FORMAT- 
, FORMAT- 


SEGNAME-AMVREF,  PARENT-PROTYP,  SEGTYPE-S1 

FIELD-SHIP  ID  , ALIAS-SID  , FORMAT-A5 

FIELD-SHIP~NAME  ,ALIAS-SNM  , FORMAT-A20 
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5.3  FILE  PROPULSR  (  Propulsor  Systems  )  Data  Entry  Formats 
Field  Name  Max  Width  Field  Description 


Segment:  PROPTYP 


PR0-TYP 

6(A) 

PR0-STYP 

4(A) 

PR0-C0M1 

70(A) 

PR0-C0M2 

70(A) 

PR0-C0M3 

70(A) 

Segment : 

PROPSYS 

MFR-ID 

5(A) 

MFR-N0 

12(A) 

MFR-COM1 

70(A) 

MFR-C0M2 

70(A) 

MFR-C0M3 

70(A) 

Segment : 

PR0DESC 

PRO-TRAIN 

PRO-MAT 

PRO-VAR-PTCH 

PRO-CNT-PTCH 

PRO-FULL-REV 

PRO-DUCTED 

PRO-TUNNEL 

PR-C0M1 

PR-C0M2 

PR-C0M3 

Segment:  PROSPEC 


PRO-DIA 

PRO-WEIGHT 

PRO-PTCH-MX 

PRO-NO-BLDS 

PRO-AREA-RAT 

SPEC-C0M1 


1(A) 

20(A) 

1(A) 

1(A) 

1(A) 

1(A) 

1(A) 

70(A) 

70(A) 

70(A) 


4(N).1(N) 
2(N).1(N) 
2(N).1(N) 
1  (N) 

4(N).1(N) 

70(A) 


Main  segment  in  file;  two  part  key 
using  PROP-TYP  and  PROP-STYP  for  access 
to  file 

Standard  code  for  propulsion  system 
type;  ex  WS  (water  screw)  etc. 

Standard  code  for  propulsion  system 
subtype;  ex  VP  (variable  pitch)  etc. 
General  comment  field  1 
General  comment  field  2 
General  comment  field  3 

Controlling  segment  of  file  for 
detailed  data  on  propulsion  systems 

Code  number  for  manufacturer  of  system 
Manufacturer's  model  number 
General  comment  field  1 
General  comment  field  2 
General  comment  field  3 

Unique  segment  associated  with  each 
iteration  of  the  PROPSYS  segment 
containing  general  descriptive  data 
on  the  propulsor  system 

Propulsor  trainable  (Y/N) 

Material(s)  system  made  of 
Variable  pitch  technology  (Y/N) 
Controllable  pitch  technology  (Y/N) 
Fully  reversible  propulsor  (Y/N) 

Ducted  system  (Y/N) 

Tunnel  technology  incorporated  (Y/N) 
General  comment  field  1 
General  comment  field  2 
General  comment  field  3 

Unique  segment  associated  with  each 
iteration  of  the  PROPSYS  segment 
containing  specs  of  the  system 

Diameter  of  the  propulsor 
Weight  of  the  propulsor 
Max  pitch  of  the  propulsor 
Number  of  blades 
Area  ratio  of  the  propulsor 
General  comment  field  1 
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SPF.C-C0M2 

SPEC-C0M3 


70(A) 

70(A) 


General  comment  field  2 
General  comment  field  3 


Segment:  SHFTSPEC 


SH-ANGL 

SH-MAT 

SH-OD 

SH-ID 

SH-SMOD 

SH-COM1 

SH-C0M2 

SH-C0M3 


Segment:  AMVREF 


SHIP-ID 


SHIP-NAME 

SHIP-FLAG 


Segment:  LITREF 


REF-NUM 

REF-DESC 


Unique  segment  associated  with  each 
iteration  of  the  PROPSYS  segment 
containing  data  on  the  propulsor's 
shaft  components 

2(N).1(N)  Angle  of  shaft 
20(A)  Material  shaft  made  of 

2(N).1(N)  Outer  diameter  of  the  shaft 
2(N).1(N)  Inner  diameter  of  the  shaft 
4(N).1(N)  Shaft  shear  modulus 
70(A)  General  comment  field  1 

70(A)  General  comment  field  2 

70(A)  General  comment  field  3 

Controlling  segment  of  file  for  cross- 
reference  information  to  the  AMV  Ships 
file 

5(A)  Ship  ID  number  for  ship  contained  in 

AMV  database  using  the  propulsor 
system;  same  format  as  that  used  in 
the  AMV  system 

20(A)  Name  of  ship  in  AMV  Database 

10(A)  Country  ship  registered  in 

Controlling  segment  of  file  for  cross- 
reference  information  to  the  0EB 
literature  reference  database 

6(A)  Reference  number;  0EB  internal  format 

for  literature  reference  numbers 
40(A)  Brief  description  of  reference 
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6.0  File  WGTHANDL  (  Weight  Handling  Systems  ) 


The  Weight  Handling  file  provides  a  means  of  storing  data  on  various 
weight  handling  systems  used  for  shipboard  applications.  Using  a 
combination  of  a  standard  weight  handling  system  type  code  and  a 
standard  weight  handling  system  subtype  code  as  an  entry  key  to  the 
file,  three  types  of  information  will  be  available  as  follows: 

a)  Weight  handling  system  descriptions  and  specifications  for  a 
number  of  designs  currently  and  potentially  available  associated 
with  each  WT-TYP/WT-STYP 

b)  Listing  of  ships  conforming  to  the  WT-TYP/WT-STYP  available 
in  the  AMV  database  (which  will  give  detailed  operational 
characteristics  etc.  on  specific  ships). 

c)  Listing  of  literature  references  cataloged  by  OEB  on  the  WT-TYP/ 
WT-STYP  in  question. 

The  following  pages  provide  a  file  structure  diagram,  descriptions 
of  the  segments  in  the  file,  and  descriptions  of  the  fields  in  each 
segment . 
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6.2  MASTER  FILE  DESCRIPTION  FOR  ' WGTHANDL ' 

THE  WEIGHT  HANDLING  FILE  CONTAINS  DATA  ON  VARIOUS  TYPES  OF  MARINE 
WEIGHT  HANDLING  SYSTEMS.  REFER  TO  THE  DOCUMENT  "MARINE  TECHNOLOGY 
DATABASE  ( MTD )  USER'S  GUIDE"  FOR  MORE  INFORMATION. 


DESIGNED  FOR  :  USCG  R&D  CENTER,  OCEAN  ENGINEERING  BRANCH 
DESIGNED  BY  :  M.  J.  STEVENS  ( VTC } 

DATE  LAST  REV  :  5/11/87 


FILE-WGTHANDL,  SUFFIX-FOC 
SEGNAME-MAIN,  SEGTYPE-S2 


FIELD«WT_TYP 
FIELD-WT_STYP 
FIELD-WT_COMl 
FIELD-WT_COM2 
FIELD-WT  COM3 


,ALIAS-WTYP 
, ALIAS -WSTYP 
, ALIAS -WCOM1 
, ALIAS -WCOM2 
, ALIAS-WCOM3 


SEGNAME-WTSYS,  PARENT-MAIN,  SEGTYPE-S2 
riELD-MFR_ID  , ALIAS-MID 

FI ELD-MFR_NO  ,ALIAS-MNO 

FIELD-MFR_COMl  .ALIAS-MCOM1 

FIELD-MFR_COM2  ,ALIAS-MCOM2 

FIELD-MFR_COM3  , ALIAS-MCOM3 

SEGNAME— WTDESC ,  PARENT-WTSYS ,  SEGTYPE-U 
FIELD-WT_PRI  FN  ,ALIAS-WPFN 

FIELD— WT_PWR_TYP  ,ALIAS-WPTYP 

FIELD— WT_DYN  POS  ,ALIAS-WDPOS 

FIELD-DESC_COMl  ,ALIAS-DCOMl 

FIELD-DESC_COM2  ,ALIAS-DCOM2 

FIELD-DESC_COM3  ,ALIAS-DCOM3 

SEGNAME-WTSPEC,  PARENT-WTSYS,  SEGTYPE-U 


FIELD-WT_REACH 
FIELD-WT_CAP 
FIELD-WT_WEIGHT 
F I ELD-WT_VEL 
F I ELD-WT_MOM 
FIELD-WT_VOL 
FI ELD— WT_COST 
FIELD-SPEC_COMl 
FIELD-SPEC  COM2 


, ALIAS-WTRCH 
, ALIAS-WCAP 
, ALIAS-WWGT 
, ALIAS-WVEL 
, ALIAS-WMOM 
, ALIAS-WVOL 
, ALIAS-WCST 
, ALIAS-SCOM1 
, ALIAS-SCOM2 
, ALIAS-SCOM3 


FIELD— SPEC_COM3  ,ALIAS-SCOM3 

SEGNAME-AMVREF,  PARENT-MAIN,  SEGTYPE-S1 
FIELD-SHIP_ID  , ALIAS-SID 

FIELD-SHIP_NAME  , ALIAS-SNM 

FIELD-SHIP_FLAG  ,ALIAS-SFG 

+  +  +  +  +  +  +  +  +  +  +  +  +  f 

SEGNAME-LITREF,  PARENT-MAIN,  SEGTYPE-S1 
FI ELD-RE F_NUM  , ALIAS -RNUM 

FIELD-REF  DESC  ,ALIAS-RDSC 


, FORMAT-A6 
, FORMAT-A4 
, FORMAT-A7  0 
, FORMA T-A70 
, FORMAT-A70 


, FORMAT-A5 
, FORMAT-A12 
, FORMAT-A7  0 
, FORMAT-A70 
, FORMAT-A70 

, FORMAT-A20 
, FORMAT-A20 
, FORMAT-A1 
, FORMAT-A7  0 
, FORMAT-A70 
, FORMAT-A7  0 

, FORMAT- F 3.1 
, FORMAT- F 3.1 
, FORMAT- F 3.1 
, FORMAT- F 3.1 
, FORMAT-F5 . 1 
, FORMAT-F5 . 1 
, FORMAT- F 5. 2 
, FORMAT-A7  0 
, FORMAT-A70 
, FORMAT-A7  0 


, FORMAT-A5 
, FORMAT-A20 
, FORMAT-Al 0 


, FORMAT-A6 
, FORMAT- A40 


-  END  MASTER  FILE  DESC  - 
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6.3  File  WGTHANDL  (  Weight  Handling  Systems  )  Data  Entry  Formats 


Field  Name 


Segment:  MAIN 


WT-TYP 


WT-STYP 


WT-C0M1 

WT-C0M2 

WT-COM3 

Segment :  WTSYS 


MFR-ID 
MFR-NO 
MFR-COM 1 
MFR-COM2 
MFR-C0M3 

Segment:  WTDESC 


WT-PRI-FN 

WT-PWR-TYP 

WT-DYN-POS 

DESC-COM1 

DESC-COM2 

DESC-COM3 

Segment:  WTSPEC 


WT-REACH 

WT-CAP 

WT-WEIGHT 

WT-VEL 

WT-MOM 

WT-VOl 

WT-COST 

SPEC-COM 1 

SPEC-COM2 


Max  Width  Field  Description 


■I 


6(A) 

4(A) 


70(A) 

70(A) 

70(A) 


5(A) 

12(A) 

70(A) 

70(A) 

70(A) 


20(A) 

20(A) 

1(A) 

70(A) 

70(A) 

70(A) 


2(N).1(N) 

2(N).1(N) 

2(N).1(N) 

2  ( N ) .  1  (  N  ) 

4(N).1(N) 

4(N).1(N) 

3(N).2(N) 

70(A) 

70(A) 


Main  segment  in  file;  two  part  key 
using  WT-TYP  and  WT-STYP  for  access  to 
file 

Standard  code  for  weight  handling 
system  type;  ex  BOOM  etc. 

Standard  code  for  weight  handling 
system  subtype;  ex  AFRM  (  A  frame  ) 
etc  . 

General  comment  field  1 
General  comment  field  2 
General  comment  field  3 

Controlling  segment  of  file  for 
detailed  data  on  weight  handling 
systems 

Code  number  for  manufacturer  of  system 
Manufacturer's  model  number 
General  comment  field  1 
General  comment  field  2 
General  comment  field  3 

Unique  segment  associated  with  each 
iteration  of  the  WTSYS  segment  contai¬ 
ning  general  descriptive  data  on  the 
weight  handling  system 

Primary  function  system  designed  for 
Method  for  providing  power  to  system 
Dynamic  positioning  (Y/N) 

General  comment  field  1 
General  comment  field  2 
General  comment  field  3 

Unique  segment  associated  with  each 
iteration  of  the  WTSYS  segment 
containing  specs  of  the  system 

Maximum  reach  of  system 
Capacity  at  maximum  reach 
System  weight 
Lift-off  velocity 
Static  tipping  moment 
Volume  of  system 
Cost  of  system 
General  comment  field  1 
General  comment  field  2 
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SPEC-C0M3 


Segment:  AMVREF 


SHIP-ID 


SHIP-NAME 

SHIP-FLAG 

Segment :  LITREF 


REF-NUM 


REF-DESC 


70(A)  General  comment  field  3 

Controlling  segment  of  file  for  cross- 
reference  information  to  the  AMV  Ships 
file 

5(A)  Ship  ID  number  for  ship  contained  in 

AMV  database  using  the  weight  handling 
system;  same  format  as  that  used  in  the 
AMV  system 

20(A)  Name  of  ship  in  AMV  Database 

10(A)  Country  ship  registered  in 

Controlling  segment  of  file  for  cross- 
reference  information  to  the  OEB 
literature  reference  database 

6(A)  Reference  number;  OEB  internal  format 

for  literature  reference  numbers 
40(A)  Brief  description  of  reference 


20(A) 

10(A) 


£ 
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7.0  File  VESSAUTO  (  Vessel  Automation  Systems  ) 

The  Vessel  Automation  Systems  file  contains  data  on  various  vessel 
automation  systems  used  for  a  variety  of  shipboard  applications.  Using 
a  combination  of  a  standard  type  code  and  a  standard  subtype  code  as  an 
entry  key  to  the  file,  three  types  of  information  will  be  available  as 
follows : 

a)  Vessel  Automation  system  descriptions  and  specifications  for  a 
number  of  designs  currently  and  potentially  available  associated 
with  each  VS-TYP/VS-STYP 

b)  Listing  of  ships  using  the  VS-TYP/VS-STYP  available  in  the  AMV 
database  (which  will  give  detailed  operational  characteristics 
etc.  on  specific  ships). 

c)  Listing  of  literature  references  cataloged  by  OEB  on  the  VS-TYP/ 
VS-STYP  in  question. 

The  following  pages  provide  a  file  structure  diagram,  descriptions 
of  the  segments  in  the  file,  and  descriptions  of  the  fields  in  each 
segment. 
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i  <  in  «  wo 

+  Q  S  J 

I  •  M  B  h. 

I  «  III 

|  •  A,  A.  ft. 

|  •  M  M  H 

|  *>  •  X  X  X 

|  O  «  tf|  VI  VI 


4  axtt 

«  >*  H  O  o 

«  H  V)  O  U 

*  III! 

«-  «  W  V)  W  V) 

o  •  >  >  >  > 


I  M  «  C  £ 

•  Q  O  O  O 

•  m  K  U  U 

•  till 

•  OS  BS  DS  PC 

ix  «  lb  h.  k  |b 

o  «  k  r  r  x 


till 

<  <  <  < 

>  >  >  -. 


r 


7.2  MASTER  FILE  DESCRIPTION  FOR  'VESSAUTO' 

THE  VESSEL  AUTOMATION  SYSTEMS  FILE  CONTAINS  DATA  ON  VARIOUS  TYPES 
OF  MARINE  VESSEL  AUTOMATION  SYSTEMS.  REFER  TO  THE  DOCUMENT  "MARINE 
TECHNOLOGY  DATATBASE  ( MTD )  USER'S  GUIDE"  FOR  MORE  INFORMATION. 


USCG  R&D  CENTER,  OCEAN  ENGINEERING  BRANCH 
M.  J.  STEVENS  { VTC ) 

5/11/87 


FILE-VESSAUTO,  SUFFIX-FOC 
SEGNAME-MAIN,  SEGTYPE-S2 


FIELD-VS_TYP  ,ALIAS-WTYP 

FIELD-VS_STYP  ,ALIAS-WSTYP 

FIELD«VS_COMl  ,ALIAS-VCOMl 

FIELD-VS_COM2  ,ALIAS-VCOM2 

FIELD-VS_COM3  ,ALIAS«VCOM3 

SEGNAME-VASYS,  PARENT-MAIN,  SEGTYPE-S2 
FI ELD-MFR_ID  , ALIAS-MID 

FIELD-MFR_NO  ,ALIAS-MNO 

FIELD-MFR_COMl  ,ALIAS-MCOMl 

FIELD-MFR_COM2  ,ALIAS-MCOM2 

FIELD— MFR_COM3  ,ALIAS-MCOM3 

SEGNAME-VADESC ,  PARENT-VASYS ,  SEGTYPE-U 
FIELD-VA  FN  ,ALIAS-VFN 


FI ELD-VA_FN 
FIELD-VA_IN1 
FIELD— VA_IN2 
FI ELD-VA_IN3 
FI ELD— VA_OUTl 
FIELD— VA_OUT2 
FIELD-VA_OUT3 
FIELD-VA_COMl 
FIELD-VA_COM2 
FIELD-VA  COM3 


, ALIAS-VIN1 
, ALIAS-VIN2 
, ALIAS-VIN3 
, ALIAS-VOUT1 
, ALIAS-VOUT2 
, ALIAS-VOUT3 
, ALIAS -ACOMl 
, ALIAS-ACOM2 
, ALIAS-ACOM3 


SEGNAME-VASPEC,  PARENT-VASYS,  SEGTYPE-U 
FIELD-VA_COST  ,ALIAS-VCOST 

FIELD-VA_EFF_RAT  , ALIAS-VERAT 

FIELD-SPEC_COMl  ,ALIAS-SCOMl 

FIELD-SPEC_COM2  , ALIAS-SCOM2 

FIELD-SPEC  COM3  ,ALIAS-SCOM3 


, FORMAT-A6 
, FORMAT-A4 
, FORMAT-A7  0 
, FORMAT-A7  0 
, FORMAT-A7  0 


,  FORMAT* 
, FORMAT- 
, FORMAT* 
, FORMAT* 
, FORMAT* 

, FORMAT* 
, FORMAT- 
, FORMAT- 
, FORMAT* 
, FORMAT* 
, FORMAT* 
, FORMAT* 
, FORMAT- 
, FORMAT* 
, FORMAT* 

, FORMAT- 
, FORMAT- 
, FORMAT* 
, FORMAT- 
, FORMAT* 


SEGNAME-AMVREF ,  PARENT-MAIN,  SEGTYPE-S1 

FIELD-SHIP_ID  , ALIAS-SID  , FORMAT-A5 

FIELD-SHIP_NAME  ,ALIAS-SNM  , FORMAT-A20 

FIELD-SHIP  FLAG  ,ALIAS-SFG  , FORMAT-AlO 


SEGNAME-LITREF ,  PARENT-MAIN,  SEGTYPE-S1 

FI ELD-REF_NUM  , ALIAS-RNUM  , FORMAT-A6 

FIELD-REF  DESC  ,ALIAS-RDSC  , FORMAT-A4 0 


END  MASTER  FILE  DESC 


-</></>  -t/>  </></>  </> 


7.3  File  VESSAUTO  (  Vessel  Automation  Systems  )  Data  Entry  Formats 


Field  Name 
Segment:  MAIN 


VS-TYP 

VS-STYP 

VS-COM1 

VS-C0M2 

VS-C0M3 

Segment:  VASYS 


MFR-ID 

MFR-NO 

MFR-COM1 

MFR-C0M2 

MFR-COM3 

Segment:  VADESC 


VA-FN 

VA-IN1 

VA-IN2 

VA-IN3 

VA-0UT1 

VA-OUT2 

VA-OUT3 

VA-COM1 

VA-COM2 

VA-COM3 

Segment:  VASPEC 


VA-COST 

VA-EFF-RAT 

SPEC-COM1 

SPEC-COM2 

SPEC-COM3 


Max  Width  Field  Description 

Main  segment  in  file;  two  part  key 
using  VA-TYP  and  VA-STYP  for  access  to 
file 


6(A) 

4(A) 

70(A) 

70(A) 

70(A) 


5(A) 

12(A) 

70(A) 

70(A) 

70(A) 


Standard  code  for  vessel  automation 
system  type 

Standard  code  for  vessel  automation 

system  subtype 

General  comment  field  1 

General  comment  field  2 

General  comment  field  3 

Controlling  segment  of  file  for 
detailed  data  on  vessel  automation 
systems 

Code  number  for  manufacturer  of  system 
Manufacturer's  model  number 
General  comment  field  1 
General  comment  field  2 
General  comment  field  3 


Unique  segment  associated  with  each 
iteration  of  the  VASYS  segment  contai¬ 
ning  general  descriptive  data  on  the 
vessel  automation  system 


20(A)  Primary  function  system  designed  for 

20(A)  Automation  system  input  1 

20(A)  Automation  system  input  2 

20(A)  Automation  system  input  3 

20(A)  Automation  system  output  1 

20(A)  Automation  system  output  2 

20(A)  Automation  system  output  3 

70(A)  General  comment  field  1 

70(A)  General  comment  field  2 

70(A)  General  comment  field  3 


Unique  segment  associated  with  each 
iteration  of  the  VASYS  segment 
containing  specs  of  the  system 


4(N).1(N)  Cost  of  automation  system 
2(N).1(N)  Effectiveness  rating  of  system 

70(A)  General  comment  field  1 

70(A)  General  comment  field  2 

70(A)  General  comment  field  3 


Segment:  AMVREF 


SHIP-ID 


SHIP-NAME 

SHIP-FLAG 

Segment:  LITREF 


REF-NUM 


REF-DESC 


5(A) 


20(A) 

10(A) 


6(A) 

40(A) 


Controlling  segment  of  file  for  cross- 
reference  information  to  the  A MV  Ships 
file 

Ship  ID  number  for  ship  contained  in 
AMV  database  using  the  vessel  auto¬ 
mation  system;  same  format  as  that  used 
in  the  AMV  system 
Name  of  ship  in  AMV  Database 
Country  ship  registered  in 

Controlling  segment  of  file  for  cross- 
reference  information  to  the  OEB 
literature  reference  database 

Reference  number;  OEB  internal  format 
for  literature  reference  numbers 
Brief  description  of  reference 
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8.0  File  MFRREF  (  Manufacturer's  Reference  File  ) 


The  Manufacturer's  (  and  Naval  Architects  /  Designer's  )  reference 
file  includes  basic  data  items  such  as  addresses,  phone  numbers  etc.  on 
firms  in  the  file.  Each  firm  has  a  unique  identifying  code/nuraber  that 
is  used  when  data  on  the  firm  needs  to  accessed.  These  same  codes  are 
used  in  other  files  such  as  the  HULLCNFG  file  as  cross-references  to 
the  MFRREF  file  when  identification  of  the  manufacturer  or  designer  of 
a  system  is  required. 

The  following  pages  provide  a  file  structure  diagram,  descriptions 
of  the  segments  in  the  file,  and  descriptions  of  the  fields  in  each 
segment . 


►TiVi 


■</></></>  "Q  <A  <A  <A  </><A  </></>  <A  iA  4A  </>  <A  <A  </> 


8.2  MASTER  FILE  DESCRIPTION  FOR  ' MFRREF ' 

THE  MANUFACTURER'S  (AND  DESIGN  FIRM'S)  REFERENCE  FILE  CONTAINS  DATA 
RELATING  EACH  MANUFACTURER  SUCH  AS  ADDRESSES.  PHONE  NUMBERS  ETC. 
REFER  TO  THE  "MARINE  TECHNOLOGY  DATABASE  ( MTD )  USER'S  GUIDE"  FOR 
MORE  INFORMATION. 


DESIGNED  FOR  :  USCG  RSD  CENTER,  OCEAN  ENGINEERING  BRANCH 
DESIGNED  BY  :  M.  J.  STEVENS  (VTC) 

DATE  LAST  REV  :  5/11/87 


ILE-MFRREF,  SUFFIX-FOC 
SEGNAME-MAIN,  SEGTYPE* 
FIELD*MFR_ID 
FIELD«MFR_NAME 
FIELD«MFR_ADD1 
FIELD«MFR_ADD2 
FIELD-MFR_ADD3 
FIELD-MFR_PHONE 
FIELD-MFR  REP 


SI 

, ALIAS-MID 
, ALIAS "MNAME 
, ALIAS-MAD1 
.ALIAS-MAD2 
.ALIAS-MAD3 
, ALIAS-MPHN 
.ALIAS-MREP 


, FORMAT* 
, FORMAT* 
, FORMAT* 
, FORMAT- 
, FORMAT* 
, FORMAT- 
, FORMAT* 


-  END  MASTER  FILE  DESC  - 
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8.3  File  MFRREF  (  Manufacturer's  Reference  File  )  Data  Entry  Formats 


Field  Name 

Max  Width 

Field 

Description 

Segment:  MAIN 

Master  segment  in  file;  key  for 
accessing  data  in  the  file  is  the  field 
MFR-ID 

MFR-ID 

5(A) 

Code  number  for  manufacturer  or  design 
firm 

MFR-NAME 

25(A) 

Firm's 

name 

MFR-ADD1 

25(A) 

Firm's 

address,  line  (1) 

MFR-ADD2 

25(A) 

Firm's 

address ,  line  (2) 

MFR-ADD3 

25(A) 

Firm's 

address,  line  (3) 

MFR-PHONE 

16(A) 

Firm's 

phone  number 

MFR-REP 

25(A) 

Firm's 

representative 

9.0  File  OEBREF  (  OEB  Literature  Reference  File  ) 

The  OEB  Reference  file  contains  data  on  publications  researched  and 
reviewed  on  various  aspects  of  marine  vessel  technology.  Areas  covered 
include  hull  configurations,  propulsion  and  propulsor  systems,  weight 
handling  systems,  and  vessel  automation. 

The  following  pages  provide  a  file  structure  diagram,  descriptions 
of  the  segments  in  the  file,  and  descriptions  of  the  fields  in  each 
segment . 
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9.2  MASTER  FILE  DESCRIPTION  FOR  ' OEBREF ' 

THE  OCEAN  ENGINEERING  BRANCH'S  LITERATURE  REFERENCE  FILE  CONTAINS 
REFERENCES  RESEARCHED  ON  VARIOUS  ASPECTS  OF  MARINE  TECHNOLOGY. 
REFER  TO  THE  "MARINE  TECHNOLOGY  DATABASE  ( MTD )  USER'S  GUIDE"  FOR 
MORE  INFORMATION. 
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DESIGNED  FOR 
DESIGNED  BY 
DATE  LAST  REV 


:  USCG  RSD  CENTER,  OCEAN  ENGINEERING  BRANCH 
:  M.  J.  STEVENS  (VTC) 

:  5/11/87 


SEGNAME-MAIN,  SEGTYPE- 

SI 

FIELD-REF  NUM 

, ALIAS-RNO 

, FORMAT-A6 

FIELD-REF  TITLE 

, ALIAS-RTITL 

, FORMAT-A60 

FIELD-REF  SOURCE 

, ALIAS-RSRC 

, FORMAT-A40 

FIELD-REF  REP  NO 

, ALIAS-RRNO 

,  FORMAT-AIO 

FIELD-REF  JN  VOL 

, ALIAS-RJNV 

,  FORMAT-AIO 

FIELD-REF  PUB  DT 

, ALIAS-MPHN 

, FORMAT-A16 

SEGNAME-AUTHOR,  PARENT 

-MAIN,  SEGTYPE-S3 

FIELD-AUTH  LN 

, ALIAS-ALN 

, FORMAT-A14 

FIELD-AUTH  FN 

, ALIAS-AFN 

, FORMAT-A12 

FIELD-AUTH  MI 

, ALIAS-AMI 

, FORMAT-A1 

SEGNAME-KEYWORD.  PARENT-MAIN,  SEGTYPE-S1 

FIELD-KEY  WD  NO 

, ALIAS-KWN 

, FORMAT- I 2 

FIELD-KEY  WORD 

, ALIAS-KWD 

, FORMAT-A12 

SEGNAME-ABSTRACT,  PARENT-MArN,  SEGTYPE-S1 

FI ELD-ABS  LN  NO 

, ALIAS-ABLN 

, FORMAT- I 2 

FI ELD-ABS  TEXT 

, ALIAS-ABTX 

,  FORMAT-A60 

t/>  </>  </V  </> 


9.3  File  OEBREF  (  OEB  Literature  Reference  File  )  Data  Entry  Formats 


Field  Name 
Segment :  MAIN 


REF-NUM 

REF-TITLE 

REF-SOURCE 

REF-REP-NO 

REF-JN-VOL 

REF-PUB-DT 

Segment :  AUTHOR 


REF-AUTH-LN 
REF-AUTH-FN 
REF- AUTH-MI 

Segment:  KEYWORD 


KEY-WD-NO 

KEY-WORD 

Segment:  ABSTRACT 


ABS-LN-NO 

ABS-TEXT 


Max  Width 


6(A) 

60(A) 

40(A) 

10(A) 

10(A) 

16(A) 


14(A) 

12(A) 

1(A) 


2  (  N  ) 
12(A) 


2  (  N ) 
60(A) 


Field  Description 

Master  segment  in  file;  key  for 
accessing  data  in  the  file  is  the  field 
REF-NUM 

Six  character  OEB  code  identifying  pub- 

blication/ref erence  researched 

Title  of  reference 

Source  of  reference 

Report  number 

Volume  number 

Date  of  publication 

Segment  of  file  containing  author(s)  of 
publication;  access  is  by  all  three 
fields 

Author's  last  name 
Author's  first  name 
Author's  middle  initial 

Segment  containing  selected  keywords 
associated  with  document. 

Keyword  number 
Keyword 

Segment  associated  with  the  abstract  of 
the  reference 

Abstract  line  number 
Abstract  text 
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2.5  0EB230  -  PROPULSR  File  Maintenance  .  B-230-1 

2.6  0EB240  -  WGTHANDL  File  Maintenance  . .  B-240-1 

2.7  0EB250  -  VESSAUTO  File  Maintenance  .  B-250-1 

2.8  OEB260  -  MFRREF  File  Maintenance  .  B-260-1 

2.9  0EB270  -  OEBREF  File  Maintenance  .  B-270-1 

2.10  0EB300  -  Report  Menu  .  B-300-1 

2.11  0EB310  -  HULLCNFG  Reports  .  B-310-1 

2.12  0EB320  -  PROPULSN  Reports  .  B-320-1 

2.13  0EB330  -  PROPULSR  Reports  .  B-330-1 

2.14  0EB340  -  WGTHANDL  Reports  .  B-340-1 

2.15  0EB350  -  VESSAUTO  Reports  .  B-350-1 

2.16  0EB360  -  MFRREF  Reports  .  B-360-1 

2.17  0EB370  -  OEBREF  Reports  .  B-370-1 


1.0  INTRODUCTION' 


The  MTD  application  consists  of  a  series  of  FOCEXEC  (  . FEX 

extensions  )  files  containing  a  mixture  of  "Dialogue  Manager"  and 
"Modify"  FOCUS  code.  Where  appropriate,  the  code  accesses  the  Master 
File  Description  (  .MAS  extensions  )  files  described  in  Appendix  A, 
and,  in  the  case  of  file  maintenance  routines  or  reports,  the  data 
files  (  .FOC  extensions  ). 

An  MTD  user's  sub-directory  has  been  created'  on  the  Marine  Systems 
Branch's  DEC  Microvax  II  to  contain  the  application  and  the  data  files. 
To  access  the  system,  log  on  with  MTD  as  the  user  name  (  press  [RETURN] 
at  the  password  prompt;  a  password  is  not  needed  to  access  the 
application  )  and  then  follow  the  steps  described  below: 

a)  Type  'FOCUS'  and  press  the  [RETURN]  key 

b)  Type  'EX  0EB010'  and  press  the  [RETURN]  key 

When  the  master  menu  is  displayed,  choose  the  function  desired, 
type  the  number  of  the  menu  choice,  and  press  the  [RETURN]  key.  The 
appropriate  routine  (sub-menu  or  program)  will  be  executed.  When 
working  with  file  maintenance  routines,  there  are  three  keys  that  are 
used  to  control  the  execution  of  the  routines. 

The  [TAB]  key  allows  movement  from  one  field  to  another  within  a 
given  screen  display  or  "form".  Entry  of  data,  or  modification  of 
existing  data,  is  similar  to  filling  out  a  paper  form.  After  filling  in 
a  given  field,  press  the  [TAB]  key  to  advance  to  the  next  field.  The 
[UP]  and  [DOWN]  arrows  can  also  be  used  to  move  from  one  field  to 
another . 

The  (RETURN]  key  is  used  to  command  the  system  to  take  the  desired 
action  on  the  form  that  has  just  been  filled  out  or  modified.  If  you 
had  chosen  an  ADD  routine  from  one  of  the  menus,  for  example,  pressing 
the  [RETURN]  key  would  cause  whatever  was  present  on  the  screen  (form) 
to  be  filed  away  in  the  designated  data  file  as  a  new  record.  (  FOCUS 
displays  error  messages  if  you  attempt  to  add  an  existing  record  or 
delete  a  non-existing  record  etc.  ) 

The  [PF3]  key  is  used  to  "QUIT"  whatever  process  you  happen  to  be 
in  without  any  action  being  taken  on  data  that  may  have  been  entered  on 
the  current  form.  If  you  press  the  [PF3]  key  by  mistake  while  in  a 
menu,  the  system  will  respond  with  the  FOCUS  prompt  ">>".  To  get  back 
into  the  MTD  system,  type  "EX  0EB010"  and  then  press  the  [RETURN]  key. 
The  master  menu  will  be  re-displayed. 

At  the  end  of  a  session  with  the  MTD  system,  select  option  3  from 
the  master  menu  and  press  the  [RETURN]  key.  The  FOCUS  prompt  ">>"  will 
appear.  Type  "FIN"  and  press  the  [RETURN]  key.  The  VMS  "$"  prompt  will 
be  displayed;  at  this  point,  you  can  type  in  "L0"  and  press  the 
[RETURN]  key  to  log-off  the  system. 

The  following  pages  present  the  code  listings  of  the  FOCEXECS  used 
to  build  the  MTD  application.  The  functions,  along  with  the  appropriate 
program  file  names  are  listed  below: 

MTD  Master  Menu  0EB010.FEX 


-B3- 


*MWiA  yfc  AAiili  !.•»  i 
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Report  Menu 


OEB210. FEX 
0EB220.FEX 
0EB230. FEX 
0EB240 . FEX 
0EB250. FEX 
0EB260. FEX 
0EB270. FEX 

0EB300.FEX 


i 

.■V 

ft 


HULLCNFG  Reports 
PROPULSN  Reports 
PROPULSR  Reports 
WGTHANDL  Reports 
VESSAUTO  Reports 
MFRREF  Reports 
OEBREF  Reports 


0EB310. FEX 
0EB320 . FEX 
0EB330. FEX 
0EB340.FEX 
0EB350. FEX 
OEB360. FEX 
0EB370. FEX 
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MTD  SYSTEM  MASTER  DIRECTORY  -  OEB010 


■‘DESIGNED  FOR 
■‘DESIGNED  BY 
■‘DATE  LAST  REV 


USCG  R&D  CENTER,  OCEAN  ENGINEERING  BRANCH 
M.  J.  STEVENS  ( VTC ) 

5/12/87 


■TOP 

-DEFAULTS 

-CRTFORM 


&OPTION-Q 
LINE  1 


MARINE  TECHNOLOGY  DATABASE  MASTER  DIRECTORY  -  OEBOIO 


Qy  -"1 

<77  | 

¥  -”l 

<77  | 

S  -"1 

<77  | 

S'  _  «  | 

<77  | 

ft 

DIRECTORY  OPTIONS 

[1]  FILE  MAINTENANCE 
( 2 1  REPORT  GENERATION 
[ 3 ]  EXIT  SYSTEM 

OPTION  — >  <40PTI0N 


[TAB]  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  [PF3]  QUIT 


IF  &OPTION  EQ  1  GOTO  ONE; 

IF  &OPTION  EQ  2  GOTO  TWO; 

IF  &OPTION  EQ  3  GOTO  THREE; 
GOTO  TOP 
* 

ONE 

* 

EX  OEB200 
END 
* 

-RUN 

GOTO  TOP 
* 

TWO 

* 

EX  OEB300 
END 
* 

-RUN 

GOTO  TOP 
* 

THREE 

* 

QUIT 
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B-200-1 
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FILE  MAINTENANCE  ROUTINE  FOR  HULLCNFG  FILE 


OEB210 


-■•DESIGNED  FOR 
■‘DESIGNED  BY 
■‘DATE  LAST  REV 


USCG  R&D  CENTER,  OCEAN  ENGINEERING  BRANCH 
M.  J.  STEVENS  ( VTC ) 

5/12/87 


-TOP 

-DEFAULTS 

-CRTFORM 


&OPTION-0 
LINE  1 


FILE  MAINTENANCE  ROUTINES  FOR  HULLCNFG  FILE  -  OEB210 


MAINTENANCE  OPTIONS  LIST 

(11  ADD  CONFIGURATION 
[2]  CHG  CONFIGURATION 
[31  DEL  CONFIGURATION 
[41  EXIT  HULLCNFG  FILE 

OPTION  — >  <iOPTION 


•"|  <77 
<77 
■"I  <77 


[TABJ  NEXT  FIELD,  [RETURN)  TAKE  ACTION,  [PF3J  QUIT 


-IF  tOPTION  EQ  1  GOTO  ONE; 
-IF  40PTI0N  EQ  2  GOTO  TWO; 
-IT  &OPTION  EQ  3  GOTO  THREE; 
-IF  t OPT I ON  EQ  4  GOTO  FOUR; 
-GOTO  TOP 


-CRTFORM  LINE  1 

-"I  ADD  CONFIGURATIONS  OPTIONS  FOR  HULLCNFG  FILE  -  OEB210 


"|  OPTIONS  LIST 

"I 

"|  [1]  ADD  MAIN  SEGMENT 

n|  [2]  ADD  HULL  SEGMENT 

"|  [3)  ADD  AMV  REFERENCE 

(4)  ADD  LITERATURE  REF 

"|  [51  FM  DIRECTORY 

"I 

"|  OPTION  — >  <SOPTION 

"I 

"|  <77  I" 

"|  <77 

M _ _ _ _ _ _____________ _ — _ ______ _ ____ _ ____ _ ______ _ 

"|  (TAB)  NEXT  FIELD,  [RETURN)  TAKE  ACTION,  [ PF3 )  QUIT 


-IF  &OPTION  EQ  1  GOTO  MAIN1 ; 


B-210-1 


v.v.'aV.v.v: 


'.'V  .V  \VA  ■:V.,.V."V  v  v 


-GOTO  ONE 
.  * 

-MAIN1 
.  * 

MODIFY  FILE  HULLCNFG 
CRTFORM  LINE  1 


1 

ADD 

NEW  CONFIGURATION  (HULLS  SEGMENT) 

1  " 

it 

|  TYPE 

<10 

<  HULL  TYP 

<77  |  " 

|  SUBTYPE 

<10 

<  HULL~STYP 

<77  |  " 

I  •» 

1  <77  |" 

1 

i  <77  r 

<  HULL 

COM1 

<77  1" 

COMMENTS:  <77  |" 

<  HULL_C0M2  <77 

<  HULL  COM3  <77 
<77  |"~ 


<77 

<77 

<77 

<77 


I 


[TAB]  NEXT  FIELD,  [RETURN)  TAKE  ACTION,  [ PF3 )  QUIT 


MATCH  HULLTYP  HULLSTYP 
ON  MATCH  REJECT 
ON  NOMATCH  INCLUDE 
DATA 
END 
.  * 

-RUN 

-GOTO  ONE 
.  * 

-HULL1 
.  * 

-CRTFORM  LINE  1 


HULL  DESIGN  ADD  OPTIONS  FOR  HULLCNFG  FILE  -  OEB210 


<77 

<77 


(TAB)  NEXT 


-IF 

&OPTION 

EQ 

2 

GOTO 

HULLl ; 

»  i 

J 

-IF 

40PTI0N 

EQ 

3 

GOTO 

AM  VI ; 

si 

-IF 

&OPTION 

EQ 

4 

GOTO 

LIT1 ; 

;3 

-IF 

40PTI0N 

EQ 

5 

GOTO 

TOP; 

1 
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OPTIONS  LIST 

1  " 

1  " 

ft 

1 1 ) 

ADD  HULL  DESIGN 

1 

1  " 

» 

[21 

ADD  HULL  DESCRIPTION 

1  w 

V] 

[31 

ADD  HULL  SPECIFICATIONS 

1  W 

[4] 

ADD  RIDE  CONTROL  SPECS 

1  11 

*> 

[5] 

FM  DIRECTORY 

1  n 

i  « 

t*  , 

"If 

OPTION  — >  <40PTI0N 

1 

1  " 

• 

M 

i 

FIELD,  ( RETURN  1  TAKE  ACTION,  [ PF3 )  QUIT 

I  " 

A 

B-210-2 


,  ■ 


-IF  iOPTION  EQ 
-IF  iOPTION  EQ 
-IF  iOPTION  EQ 
-IF  iOPTION  EQ 
-IF  iOPTION  EQ 
-GOTO  HULL1 
.  * 

-HULLlA 
_  * 


GOTO  HULLlA; 
GOTO  HULL1B; 
GOTO  HULL1C; 
GOTO  HULL1D; 
GOTO  ONE; 


MODIFY 

FILE  HULLCNFG 

CRTFORM 

It 

LINE  1 

”  1 
ft 

ADD  HULL  DESIGNS  ( HULLDESN  SEGMENT)  1 

"1 

<77 

1  " 

"1 

TYPE 

<16 

<  HULL  TYP  <77  | " 

"1 

SUBTYPE 

<16 

<  HULL~STYP  <77  j" 

"1 

<77 
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”  1 
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[TAB]  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  [ PF3 ]  QUIT 


MATCH  HULLTYP  HULLSTYP 
ON  NOMATCH  REJECT 
ON  MATCH  GOTO  HULLA1A 

.  * 

CASE  HULLA1A 
.  * 

CRTFORM  LINE  1 


"1 

ft 

ADD  DESIGNS  (HULLDESN  SEGMENT)  | 

"1 

MFR/DESIGNER 

<16 

<  MFR  ID  <77  | " 

Bl 

n 

MFRNUMBER 

<16 

<  MFR_NO  <77 

"1 

<77  j  " 

"  1 

COMMENTS  <77  |" 

"  | 

<77  |  " 

"  | 

<4  <MFR  COM1 

<77  r 

"  1 

<4  <MFR  COM2 

<77  |" 

"  1 

<4  <MFR  COM3 

<77 

"1 

<77  |"  ~ 

"  | 

<77  |" 

"  1 

<77  |  " 

"  1 

<77  1" 

"  1 

<77  |  " 

"1 
ft  _ 

[TAB] 

NEXT  FIELD,  (RETURN]  TAKE  ACTION,  [ PF3  ]  QUIT  I 

MATCH  MFRID  MFRNO 
ON  MATCH  REJECT 
ON  NOMATCH  INCLUDE 
GOTO  HULLA1A 

.  * 


B-210-3 


■i 


a 


A  .S  ■ 


ENDCASE 
.  * 

DATA 

END 

* 

RUN 

GOTO  HULL1 

• 

HULL1B 

* 

MODIFY  FILE  HULLCNFG 

CRTFORM  LINE  l 

*» 


ADD  HULL  DESCRIPTION  ( HULLDESC  SEGMENT) 


<16  <  HULL_TYP  <77 

<16  <  HULL_STYP  <77  |" 


[TAB)  NEXT  FIELD,  [RETURN)  TAKE  ACTION,  [ PF3 )  QUIT 


MATCH  HULL  TYP  HULLSTYP 
ON  NOMATCU  REJECT 
ON  MATCH  GOTO  HULLA1B 

-  * 

CASE  HULLA1B 
_  * 

CRTFORM  LINE  1 


-i  <77  r 

" I  TYPE 
" |  SUBTYPE 
" )  <77  | " 
"|  <77  |" 
"|  <77  |" 
"|  <77  I" 

"i  <77  r 

" |  <77  I" 
"|  <77 
"i  <77  r 

"|  <77  I" 
"|  <77  |" 
"|  <77  )" 


1 

ADD  DESCRIPTION  (HULLDESC 

SEGMENT) 

1 

|  MFR/DESIGNER 

<16 

<  MFR  ID 

<77  (  " 

|  MFRNUMBER 

<16 

<  MFR  NO 

<77  |" 

|  HULL  SHAPE 

<18 

< 

HULL  SHAPE 

<38  BOW  TYPE 

<50 

<HULL 

BTYP 

<77 

|  STERN  TYPE 

<18 

< 

HULL  RTYP 

<38  HULL  NAT 

<50 

<HULL 

"MAT 

<77  |" 

|  PLATE  THICK 

<18 

< 

HULL  PTHCK 

<38  FRAME  TYPE 

<50 

<HULL" 

FTYP 

<77  |  " 

|  WATRTGHT  GRPS 

<18 

< 

HULL  WGRPS 

<77  1" 

1  <77  I" 

1 

COMMENTS  <77  |" 

1  <77  |" 

|  <4  <  HU  COM1 

<77 

If 

|  <4  <  HU  COM2 

<77 

" 

|  <4  <  HU  COM3 

1  <77  |- 

<77 

" 

1 

[TAB 

NEXT  FIELD, 

[RETURN)  TAKE  ACTION,  [PF3J  QUIT  I 

MATCH  MFF  ID  MFR  NO 
ON  NOMAT?H  REJECT 
ON  MATCH  CONTINUE  TO  HULL_SHAPE 
ON  MATCH  REJECT 


I 

& 

* 

f 

I 


ON  NOMATCH  INCLUDE 

.  * 

ENDCASE 
.  * 

DATA 

END 

* 

RUN 

GOTO  HULL1 
* 

HULL1C 

• 

MODIFY  FILE  HULLCNFG 
CRTFORH  LINE  I 
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ADD  HULL  SPECIFICATIONS  ( HULLSPEC  SEGMENT) 


I  " 


<77  r 

TYPE 
SUBTYPE 
<77 
<77 
<77 
<77 
<77 
<77 
<77 
<77 
<77 
<77 
<77 


<16 

<16 


<  HULL 

<  HULL' 


TYP 

STYP 


<77 

<77 
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(TAB)  NEXT  FIELD,  (RETURN)  TAKE  ACTION,  ( PF3 )  QUIT 


MATCH  HULLTYP  HULLSTYP 
ON  NOMATCH  REJECT  “ 

ON  MATCH  GOTO  HULLA1C 

.  * 

CASE  HULLA1C 

.  • 

CRTFORM  LINE  1 


ADD  SPECIFICATIONS  (HULLSPEC  SEGMENT) 


MFR/DES  <20  <MFR_ID  <77  | 
MFR  NO  <20  <MFR  NO  <77  I 


"1 

LOA 

<20 

<HULL 

LOA 

<38 

HULL  LBP 

<60 

<HULL 

LBP 

<77 

1" 

"1 

MX  BEAM 

<20 

<HULL~ 

BEAM 

<38 

NX  DRAFT 

<60 

<HULL 

MX  DRFT 

<77 

1  " 

"1 

MN  DRAFT 

<20 

<HULL~ 

HN  DRFT 

<38 

LT  DRFT 

<60 

<  HULL 

LS  DRFT 

<77 

1  " 

"1 

FREEBOARD 

<20 

<  HULL- 

fbB 

<38 

FL  LD  DIS 

<60 

<HULL 

FL  DIS 

<77 

1  " 

"1 

DEADWEIGHT 

<20 

<HULL“ 

DWT 

<38 

DRA  STERN 

<60 

<HULL- 

DRA  ST 

<77 

1  " 

"  1 

DRA  MIDCHN 

<20 

<HULL~ 

DRA  MC 

<38 

MX  DEPTH 

<60 

<HULL~ 

MX  5pth 

<77 

1  " 

"  1 

BLCK  COEFF 

<20 

<HULL~ 

BLCK  CO 

<38 

PRIS  COEFF 

<60 

<HULL_ 

PRlS  CO 
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"I 

COMMENTS  <77  | 

r 

<4  OPECCOM1  <77 
<4  OPECCOM2  <77  |" 
<4  OPEC  COM3  <77  |  " 


(TAB)  NEXT  FIELD,  (RETURN)  TAKE  ACTION,  ( PF3 )  QUIT 


MATCH  MFR  ID  MFR  NO 
ON  NOMATCH  REJECT 


B-210-5 


V 


ON  MATCH  CONTINUE  TO  HULL_LOA 
ON  MATCH  REJECT 
ON  NOMATCH  INCLUDE 

_  • 

ENDCASE 
_  • 

DATA 
END 
_  * 

-RUN 

-GOTO  HULLl 
-  * 

-HULL1D 


MODIFY 

FILE  HULLCNFG 

CRTFORM 

ft 

LINE  1 

"1 

f* 

ADD  RIDE  CONTROL 

DATA  ( RIDECNTR  SEGMENT)  | 

"  1 

<77 

1  " 

”  1 

TYPE 

<16  <  HULL  TYP 

<77  |  " 

"1 

SUBTYPE 

<16  <  HULL  STYP 

<77  |  " 

”1 

<77 

r 

"1 

<77 

i " 

"  | 

<77 

i " 

"1 

<77 

i " 

”1 

<77 

i " 

"  | 

<77 

i " 

"  1 

<77 

i " 

"  | 

<77 

i " 

"  1 

<77 

i " 

"1 

<77 

i " 

"  | 

<77 

i " 

ft  _ 

[TAB]  NEXT  FIELD,  l RETURN )  TAKE  ACTION,  (  PF3  ]  QUIT 


MATCH  HULLTYP  HULL  STYP 
ON  NOMATCH  REJECT 
ON  MATCH  GOTO  HULLAlD 

* 

CASE  HULLAlD 


CRTFORM  LINE  1 


"1 

ft 

ADO  RIDE 

CONTROL  DATA 

(RIDECNTR  SEGMENT)  | 

ft  I 

MFR/DESIGNER 

<20 

< 

MFR  ID 

<77 

" 

ft  f 

ft 

MFR_ 

NUMBER 

<20 

< 

MFR_NO 

<77 

" 

—  1 

ft  1 

CONTROL  TYPE 

<20 

< 

CNTR  TYP 

<77 

" 

ft  1 

CONTROL  DESC 

<20 

< 

CNTR  DESC 

<77 

" 

ft  | 

<77 

1  " 

ft  | 

COMMENTS 

<77 

1  " 

ft  | 

<77 

1  " 

ft  1 

<4  < 

CNTR  COM1 

<77 

I" 

ft  | 

<4  < 

CNTR~COM2 

<77 

1" 

ft  I 

<4  < 

CNTR  COM3 

<77 

1" 

ft  | 

<77 

I  " 

ft  I 

<77 

1  " 

ft  I 

<77 

1  " 

ft 


(TAB)  NEXT  FIELD,  (RETURN)  TAKE  ACTION,  ( PF  3 1  QUIT 


MATCH  MFR_ID  MFR_NO 
ON  NOMATCH  REJECT 
ON  MATCH  CONTINUE  TO  CNTR_TYP 
ON  MATCH  REJECT 
ON  NOMATCH  INCLUDE 

.  * 

ENDCASE 
.  * 

DATA 
END 
_  * 

-RUN 

-GOTO  HULL1 


MODirY  FILE  HULLCNFG 


CRTFORM 

H 

LINE 

1 

"1 

If 

ADD  AMV  REFERENCES  (AMVREF 

SEGMENT )  | 

"1 

<77 

ft 

"1 

HULL 

TYPE 

<16  <  HULL  TYP  <77  1 " 

"  1 

HULL 

SUBTYPE  <16  <  HULL  STYP  <77  1" 

"1 

<77 

ft 

"  1 

<77 

It 

"  | 

<77 

" 

"  1 

<77 

It 

"  1 

<77 

ft 

"  1 

<77 

It 

"  1 

<77 

ft 

"  1 

<77 

ft 

"  | 

<77 

" 

"  | 

<77 

If 

"  1 
ft 

<77 

If 

"1 

It 

[TAB]  NEXT  FIELD,  (RETURN)  TAKE  ACTION,  [ PF 3 ]  QUIT  I 

MATCH  HULL  TYP  HULL  STYP 

ON 

NOMATCH  REJECT 

ON 

MATCH  GOTO  AMVAl 

CASE  AMVA1 

CRTFORM 

It 

LINE 

1 

"1 

It 

ADD  AMV  REFERENCES  (AMVREF 

SEGMENT)  | 

"  ! 

<77 

" 

"1 

SHIP 

ID 

<16  <  SHIP  ID  <77 

"  1 

<77 

" 

"  1 

SHIP 

NAME 

<16  <  SHIP  NAME  <77  | " 

"  1 

SHIP 

FLAG 

<16  <  SHIP  FLAG  <77  |" 

"  | 

<77 

" 

"  | 

<77 

" 

"  1 

<77 

" 

"  1 

<77 

" 

" ! 

<77 

" 

"  1 

<77 

" 

"I 

<77 

" 

"  1 

<77 

" 

"  1 

<77 

" 

ft 

B-210-7 
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[TAB]  NEXT  FIELD,  (RETURN)  TAKE  ACTION, 


MATCH  SHI P_I  D 
ON  MATCH  REJECT 
ON  NOMATCH  INCLUDE 
GOTO  AMVA1 
.  * 

ENDCASE 

* 

DATA 
END 
_  * 

-RUN 

-GOTO  ONE 


MODIFY  FILE  HULLCNFG 
CRTFORM  LINE  1 


ADD  LITERATURE  REFERENCES  {LITREF  SEGMENT) 


<77  | 

HULL 

HULL 

<77 

<77 

<77 

<77 

<77 

<77 

<77 

<77 

<77 

<77 

<77 


TYPE  <16  <  HULL_TYP  <77  | 
SUBTYPE  <16  <  HULL  STYP  <77  | 


[TAB]  NEXT  FIELD,  (RETURN)  TAKE  ACTION,  [ PF3 ]  QUIT 


MATCH  HULLTYP  HULLSTYP 
ON  NOMATCH  REJECT 
ON  MATCH  GOTO  LITA1 

.* 

CASE  LITAl 
.  * 

CRTFORM  LINE  1 


ADD  LITERATURE  REFERENCES  (LITREF  SEGMENT) 


<77  |" 

REFERENCE  NO  <17  <  REF_NUM  <77  | 
<77 

DESCRIPTION  <17  <  REF_DESC  <77  j 
<77  I" 


B-210-8 
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$ 


V  V  4.  V 


\T1  *. 


ON  MATCH  CRTFORM 

I 

|  <77  |" 

|  <T . HULL  COM1 >  <77  |  " 

|  <T.HULL~COM2>  <77  |" 

|  <T . HULL  COM3 >  <77  | " 

I  <77  |" 

I  <77  |" 

I  <77  I" 


COMMENTS  <77 


AiUUUMMAi 


( TAB ]  NEXT  FIELD,  [ RETURN J  TAKE  ACTION,  [PF3]  QUIT 


ON  MATCH  UPDATE  HULL_C0M1  HULL_C0M2  HULL_C0M3 
DATA 
END 
.  * 

-RUN 

-GOTO  TWO 
.  * 

-HULL2 
.  * 

-CRTFORM  LINE  1 


HULL  DESIGN  CHG  OPTIONS  FOR  HULLCNFG  FILE  -  OEB210 


OPTIONS  LIST 

(1]  CHG  HULL  DESIGN 

[2]  CHG  HULL  DESCRIPTION 

[3]  CHG  HULL  SPECIFICATIONS 

(4]  CHG  RIDE  CONTROL  SPECS 
( 5  J  FM  DIRECTORY 

OPTION  — >  <40PTI0N 


(TAB]  NEXT  FIELD,  (RETURN]  TAKE  ACTION,  [ PF3 ]  QUIT 


-IF  SOPTION  EQ  1  GOTO  HULL2A; 
-IF  SOPTION  EQ  2  GOTO  HULL2B ; 
-IF  40PTI0N  EQ  3  GOTO  HULL2C ; 
-IF  &OPTION  EQ  4  GOTO  HULL2D; 
-IF  &OPTION  EQ  5  GOTO  TWO; 
-GOTO  HULL2 
_  * 

-HULL2A 

_* 

MODIFY  FILE  HULLCNFG 
CRTFORM  LINE  1 


CHG  HULL  DESIGN  ( HULLDESN  SEGMENT) 


<77  |  " 
TYPE 
SUBTYPE 
<77  (" 
<77  |  " 
<77  |  " 


<16  <  HULL_TYP  <77 
<16  <  HULL  STYP  <77 


B-210-10 


' ‘-'v'-.W-.' v' 


v>  w 


:TAB]  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  [ PF3  ]  QUIT 


MATCH  HULL_TYP  HULL_STYP 
ON  NOMATCH  REJECT 
ON  MATCH  GOTO  HULLA2A 

* 

CASE  HULLA2A 
* 

CRTFORM  LINE  1 


CHG  DESIGN  (HULLDESN  SEGMENT) 


I  MFR/DES IGNER  <16 

<  MFR 

ID 

<77  |  " 

|  MFR  NUMBER  <16 

<  MFR" 

NO 

<77  |  " 

1  <77  |" 

|  <30  (  PRESS  RETURN  ) 

<77  | 

tl 

MATCH  MFR  ID  MFR  NO 

ON  NOMATCH  REJECT 

ON  MATCH  CRTFORM 

1  <77  1" 

1 

COMMENTS  <77 

1  <77  1" 

|  <4  <T . MFR  COMl>  <77 

1" 

|  <4  <T.MFR  COM2>  <77 

1" 

|  <4  <T . MFR  COM3>  <77 

1  <77  |" 

1  " 

1  <77  |" 

i  <77  r 

[TAB]  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  [ P F 3 ]  QUIT 


ON  MATCH  UPDATE  MFR_COMl  MFR_COM2  MFR_COM3 

* 

ENDCASE 

* 

DATA 

END 

* 

RUN 

GOTO  HULL2 
* 

HULL2B 

* 

MODIFY  FILE  HULLCNFG 
CRTFORM  LINE  1 


"|  CHG  HULL  DESCRIPTION  ( HULLDESC  SEGMENT) 


"|  <77  |" 

" |  TYPE 
" |  SUBTYPE 
"|  <77 
"1  <77  I" 


<16  <  HULL  TYP  <77 
<16  <  HULL~STYP  <77 


B-210-11 


1 


lliVIUUVM 


w 

LV. 

"i 

<77 

1  " 

\  V 

"  i 

<77 

1  " 

ft 

”i 

<77 

1  " 

ft 

"i 

<77 

1  " 

ft 

"i 

<77 

1  " 

& 

"i 

<77 

1" 

■ 

"i 

<77 

!  " 

"i 

<77 

1 " 

"i 

<77 

1  " 

»  _ 

'V 

"  i 

M  __ 

_ 

[TAB]  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  [PF31  QUIT 


MATCH  HULLJTYP  HULL_STYP 
ON  NOMATCH  REJECT 
ON  MATCH  GOTO  HULLA2B 

.  * 

CASE  HULLA2B 
.  * 

CRTFORM  LINE  1 


CHG  DESCRIPTION  ( HULLDESC  SEGMENT) 


MFR/DESIGNER  <16  <  MFR_ID 
MFRNUMBER  <16  <  MFR  NO 
<30  (  PRESS  RETURN  )  <77  J" 


MATCH  MFR_ID  MFRNO 
ON  NOMATCH  REJECT 
ON  MATCH  CONTINUE  TO  HULL_SHAPE 
ON  NOMATCH  REJECT 
ON  MATCH  CRTFORM 

"|  HULL  SHAPE  <18  <T . HULL_SHAPE>  <38  BOW  TYPE  <50  <T . HULL_BTYP>  <77 
"  STERN  TYPE  <18  <T. HULL  RTYP>  <38  HULL  MAT  <50  <T . HULL  MAT>  <77 


PLATE  THICK  <18  <T .  HULL  PTHCKX38  FRAME  TYPE<50  <T .  HULL  FTYP>  <77 


"|  WATRTGHT  GRPS<18  <T . HULL  WGRPS> 
"|  <77  |" 


<77  |" 

<4  <T.HU_COMl>  <77 
<4  <T.HU_COM2>  <77 
<4  <T . HU  COM3>  <77 


COMMENTS  <77 


[TAB]  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  [ PF3 ]  QUIT 


ON  MATCH  UPDATE  HULL  SHAPE  HULL_BTYP  HULL_RTYP  HULL  MAT  HULL_PTHCK 
ON  MATCH  UPDATE  HULL~FTYP  HULL  WGRPS  HU  COMl  HU  COM2  HU  COM3 


ENDCASE 
.  * 

DATA 

END 

* 

RUN 

GOTO  HULL2 
* 

HULL2C 

* 

MODIFY  FILE  HULLCNFG 
CRTFORM  LINE  1 


CHG  SPECIFICATIONS  ( HULLSPEC  SEGMENT) 


B-210-12 


V  V 


\  \  •-  *W  •. 


V 


TYPE 

SUBTYPE 

<77  I" 


<16  <  HULL_TYP  <77 
<16  <  HULL  STYP  <77 


TAB]  NEXT  FIELD,  {RETURN]  TAKE  ACTION,  [PF3]  QUIT 


MATCH  HULL_TYP  HULL_STYP 
ON  NOMATCH  REJECT 
ON  MATCH  GOTO  HULLA2C 

.* 

CASE  HULLA2C 
.* 

CRTFORM  LINE  1 


CHG  SPECIFICATIONS  ( HULLSPEC  SEGMENT) 


MFR/DES I GNER 
MFR  NUMBER 


<16  <  MFR_ID 
<16  <  MFR  NO 


<30  (PRESS  RETURN  )  <77  | 


MATCH  MFRID  MFRNO 
ON  NOMATCH  REJECT 
ON  MATCH  CONTINUE  TO  HULL_LOA 
ON  NOMATCH  REJECT 
ON  MATCH  CRTFORM 

"|  LOA  <20  <T.HULL_LOA>  < 

”|  MX  BEAM  <20<T . HULL_BEAM>  < 
"|  MN  DRAFT  < 20<T . HULL_MN_DRFT> < 
"|  FREEBOARD  <20<T.HULL_FBD>  < 
"|  DEADWEIGHT 2 0<T.  HULL  DWT>  < 
"|  DRA  MIDCHN< 20<T . HULL~DRA_MC>  < 
”|  BLCK  COEFF<20<T.HULL_BLCK_CO>< 

"|  <4  <T.SPEC_COMl>  <77 

"|  <4  <T.SPEC_COM2>  <77  j" 

"I  <4  <T . SPEC  COM3>  <77  I" 


38  HULL  LBP  <60  <T.HULL_LBP>  <77 
38  MX  DRAFT  <60  <T.HULL_MX_DRFT><77 
38  LT  DRFT  <60  <T.HULL_LS_DRFT><77 
38  FL  LD  DIS  <60  <T. HULL_FL_DIS>  <77 
38  DRA  STERN  <60  <T . HULL_DRA_ST>  <77 
38  MX  DEPTH  <60  <T . HULL_MX_DPTH> <77 
38  PRIS  COEFF<60  <T.HULL_PRIS_CO><77 
COMMENTS  <77  I" 


[TAB]  NEXT  FIELD,  (RETURN)  TAKE  ACTION,  ( PF3  ]  QUIT 


ON  MATCH  UPDATE  HULL_LOA  HULL_LBP  HULL_BEAM  HULL  MX_DRFT  HULL_MN  DRFT 
ON  MATCH  UPDATE  HULL_LS_DRFT  HULL_FBD  HULL_rL_DI?  HULL_DWT  HULL_5RA_ST 
ON  MATCH  UPDATE  HULL_DRA  MC  HULL_MX_DPTH  HULL_BLCK_CO  HULL_PRIS_CO 
ON  MATCH  UPDATE  SPEC  COMl  SPEC  COM2  SPEC  COM3 


ENDCASE 

.* 

DATA 


r-^ T7??3 ^  .V.i''.v;,  '.»i ■.«■' '.-v.-v vv .■» j.v. v.rj. 


MODIFY  FILE  HULLCNFG 
CRTFORM  LINE  1 


CHG  RIDE  CONTROL  DATA  ( RIDECNTR  SEGMENT) 


[TAB]  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  ( PF3 ]  QUIT 


MATCH  HULL_TYP  HULL_STYP 
ON  NOMATCH  REJECT 
ON  MATCH  GOTO  HULLA2D 

.  * 

CASE  HULLA2D 
.  * 

CRTFORM  LINE  1 


"1 

H 

CHG  RIDE  CONTROL  DATA  (RIDECNTR  SEGMENT)  | 

" |  MFR/DESIGNER 

<20  <  MFR  ID  <77  (  " 

" |  MFR  NUMBER 

»» 

<20  <  MFR_NO  <33  (PRESS  RETURN)  <77  |" 

MATCH  MFR  ID  MFR  NO 

ON  NOMATCH  REJECT 

ON  MATCH  CONTINUE  TO 

CNTR  TYP 

ON  NOMATCH  REJECT 

ON  MATCH  CRTFORM 

M|  <77  |" 

" |  CONTROL  TYPE 

<20  <T . CNTR  TYP>  <77  | " 

" |  CONTROL  DESC 

<20  <T. CNTR  DESC>  <77  |" 

"1 

COMMENTS  <77  |" 

" |  <4  <T . CNTR  COMl> 

<77  |  " 

"j  <4  <T . CNTR  COM2> 

<77  |" 

" |  <4  <T . CNTR  COM3> 

<77  |  " 

"i  <77  r 

"i  <77  r 

"|  <77  1" 

"|  <77  |" 

» 

|  [TAB]  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  [ PF3 ]  QUIT 

ON  MATCH  UPDATE  CNTR  TYP  CNTR  DESC  CNTR  COM1  CNTR  COM2  CNTR  COM3 


ENDCASE 
.  * 

DATA 

END 

.* 

-RUN 

-GOTO  HULL2 
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■  *•  A  .V  _S  %  A  . 


>'>VvVv'-. 


a 


3a 


::S 


r 

Si 


i 


& 


3* 

I 


:$ 
■  ■  i 

•  V 

A  1 


A 

V 


VO 

$ 


—  * 


-AMV2 


MODIFY  FILE  HULLCNFG 
CRTFORM  LINE  1 

If 


"  1 
If  _ 

CHG 

AMV  REFERENCES 

(AMVREF  SEGMENT)  , 

"  1 

<77 

1  " 

"1 

TYPE 

<16 

<  HULL  TYP 

<77  |  " 

"1 

SUBTYPE 

<16 

<  HULL  STYP 

<77  |" 

-I 

<77 

if 

"  1 

<77 

ff 

"1 

<77 

« 

"1 

<77 

n 

" ! 

<77 

H 

"  1 

<77 

ff 

"1 

<77 

ff 

"  | 

<77 

If 

"  1 

<77 

ff 

"1 

<77 

« 

"1 
«  _ 

<77 

ff 

”1 

tf 

[TAB]  NEXT 

FIELD,  [RETURN] 

TAKE  ACTION,  [  PF3 ]  QUIT  | 

MATCH  HULL 

TYP 

HULL  STYP 

ON  NOMATCH  REJECT 
ON  MATCH  GOTO  AMV2 

.  * 

CASE  AMV2 
* 

CRTFORM  LINE  1 

" _ it 

"I  CHG  AMV  REFERENCES  ( AMVREF  SEGMENT)  I" 

••  _ _ _ _ _ ____________ _ _ _ H 

"|  <77  |" 

"|  SHIP  ID  <16  <  SHIP  ID  <77  |" 

"|  <77  |" 

<33  (  PRESS  RETURN  )  <77  |" 


MATCH  SHIP_ID 
ON  NOMATCH  REJECT 
ON  MATCH  CRTFORM 
"|  <77  |" 

SHIP  NAME 


"I 

"I 


"I 

"I 


<16  <T.SHIP_NAME>  <77  |" 
SHIP  FLAG  <16  <T . SHIP  FLAG>  <77  j" 
<77  I  " 


<77 

<77 

<77 

<77 

<77 


I 


I" 


RUN 

GOTO  TWO 

* 

* 

LIT2 

* 

MODIFY  FILE  HULLCNFG 
CRTFORM  LINE  1 


"1 

If 

CHG  LITERATURE  REFERENCE  (LITREF  SEGMENT)  | 

"1  <77  | 

« 

" 1  TYPE 

<16  <  HULL  TYP  <77  |  " 

"1  SUBTYPE  <16  <  HULL  STYP  <77  |  " 

"1  <77  | 

II  ” 

"1  <77  | 

If 

"1  <77  | 

II 

”1  <77  | 

II 

”1  <77  | 

fl 

"1  <77  | 

n 

"1  <77  | 

it 

"1  <77  | 

I! 

"1  <77  | 

n 

"1  <77  | 

ti 

”1  <77  | 

n 

it 

"1 

N 

[TAB]  NEXT  FIELD, 

[RETURN]  TAKE  ACTION,  [ PF3 ] 

QUIT  | 

MATCH  HULL  TYP  HULL  STYP 

ON  NOMATCH  REJECT 

ON  MATCH  GOTO  LITA2 

CASE  LITA2 

CRTFORM 

If 

LINE  1 

"1 

It 

CHG  LITERATURE 

REFERENCE  (LITREF  SEGMENT) 

1 

"1  <77  1 

n 

"1  REF  NUMBER  <17  <  REF  NUM  <77  1" 

"1  <77  | 

il 

"I  <33  ( 
« 

PRESS  RETURN  )  <77  |" 

MATCH  REF  NUM 

ON  NOMAT^H  REJECT 

ON  MATCH  CRTFORM 

”|  <77  | 

n 

"1 

REFERENCE  DESCRIPTION 

1 

"1  <77  | 

ft 

"|  <8  <T 

'.REF  DESO  <77  |  " 

"|  <77  | 

ft 

"|  <77  | 

ft 

"1  <77  ] 

ft 

"1  <77  | 

ft 

"1  <77  | 

It 

ft 

"1 

n 

[TAB]  NEXT  FIELD, 

[RETURN]  TAKE  ACTION,  [  PF3  J 

QUIT  | 

ON  MATCH  UPDATE  REF_DESC 
GOTO  LITA2 

ENDCASE 
.  * 


B-210-16 


V 


S3 


2* 


■RUN 

-GOTO  TWO 


-THREE 


-CRTFORM  LINE  1 


DELETE  CONFIGURATIONS  OPTIONS  FOR  HULLCNFG  FILE  -  OEB210 


OPTIONS  LIST 

{ 1  }  DEL  MAIN  SEGMENT 

[2]  DEL  HULL  SEGMENT 

[3]  DEL  AMV  REFERENCES 

[4]  DEL  LITERATURE  REFS 

[5]  FM  DIRECTORY 

OPTION  -->  C&OPTION 


(TAB!  NEXT  FIELD,  [RETURN!  TAKE  ACTION,  ( P F 3 ]  QUIT 


-IF  (OPTION  EQ  1  GOTO  NAIN3 ; 
-IF  (OPTION  EQ  2  GOTO  HULL3; 
-IF  (OPTION  EQ  3  GOTO  AMV3; 
-IF  (OPTION  EQ  4  GOTO  LIT3; 
-IF  (OPTION  EQ  5  GOTO  TOP; 
-GOTO  THREE 
_  * 

-MAIN3 
_  * 

MODIFY  FILE  HULLCNFG 
CRTFORM  LINE  1 


DELETE  CONFIGURATION  (HULLS  SEGMENT) 


<77  |  " 

TYPE  <10  <  HULL_TYP  <77  |" 
SUBTYPE  <10  <  HULL  STYP  <77  j" 
<77  |" 

<33  (  PRESS  RETURN  )  <77  |" 


MATCH  HULLTYP  HULL_STYP 
ON  NOMATCH  REJECT 
ON  MATCH  CRTFORM 
"|  <77  I" 

"I 

"|  <4  <D.HULL_COMl  <77  |" 
"|  <4  <D.HULL  COM2  <77  | " 
"j  <4  <D . HULL_COM3  <77  |" 
"|  <77 
"|  <77  I" 

"|  <77  |" 


COMMENTS  <77  |" 


[TAB]  NEXT  FIELD,  [RETURN}  TAKE  ACTION,  [ PF3 ]  QUIT 


B-210-17 


r,v 

c*:-: 


MATCH  HULL_TYP  HULL_STYP 
ON  NOMATCH  REJECT 
ON  MATCH  GOTO  HULLA3A 

.  * 

CASE  HULLA3A 
.  * 

CRTfORM  LINE  1 


DEL  DESIGN  ( HULLDESN  SEGMENT) 


H|  <77  |" 

"|  MFR/DESIGNER 
" |  MFR  NUMBER 

Mi  <77~r 

MATCH  MFRID  MFR  NO 
ON  NOMATCH  REJECT 
ON  MATCH  CRTFORM 


<4  <D.MFR_COMl  <77  | 
<4  <D.MFR_COM2  <77  | 
<4  <D.MFR  COM3  <77  | 

<77  r 


<16  <  MFRID 
<16  <  MFR  NO 


<77  |  " 

<32  (PRESS  RETURN) 


COMMENTS  <77 


NEXT  FIELD,  [RETURN)  TAKE  ACTION,  [ PF3 )  QUIT 


ON  MATCH  DELETE 
GOTO  HULLA3A 

_  • 

ENDCASE 
_  * 

DATA 
END 
_  * 

-RUN 

-GOTO  HULL3 
_  * 

-HULL3B 


MODIFY  FILE  HULLCNFG 
CRTFORM  LINE  1 


DEL  HULL  DESCRIPTION  ( HULLDESC  SEGMENT) 


”i  <77  r 

” |  TYPE 
" |  SUBTYPE 
"|  <77  |" 
"|  <77  |" 
"|  <77  |" 
"|  <77  |" 
"|  <77  I" 
"|  <77  |" 
"|  <77  |" 
"|  <77  |" 
"|  <77  |" 
"|  <77  I" 
"I  <77  |" 


<16  <  HULL_TYP  <77 

<16  <  HULL  STYP  <77  I" 
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(TAB]  NEXT  FIELD,  (RETURN]  TAKE  ACTION,  ( P  F  3  ]  QUIT 


MATCH  HULL_TYP  HULL_STYP 
ON  NOMATCH  REJECT 
ON  MATCH  GOTO  HULLA3B 

• 

CASE  HU L LA 3 8 


CRTPORM  LINE  1 


M|  DEL  DESCRIPTION  ( HULLDESC  SEGMENT)  |" 

'i _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ,* 

MFR/DES IGNER  <16  <  MFR_ID  <77 

"I  MFR_NUMBER  <16  <  MFR  NO  <77  (" 

H|  <30  (  PRESS  RETURN  )  <77  f" 


MATCH  MFR  ID  MFR  NO 
ON  NOMAT?H  REJECT 
ON  MATCH  CONTINUE  TO  HULL_SHAPE 
ON  NOMATCH  REJECT 
ON  MATCH  CRTFORM 


"1 

HULL 

SHAPE 

<18 

<D . HULL 

SHAPE 

<38 

BOW 

TYPE 

<50 

<D. HULL 

BTYP 

<77 

"1 

STERN 

TYPE 

<18 

<D.HULL' 

"RTYP 

<38 

HULL 

MAT 

<50 

<D . HULL 

MAT 

<77 

"I 

PLATE 

THICK 

<18 

<D.HULL 

PTHCK 

<38 

FRAME  TYPE<  50 

<D . HULL 

~FTYP 

<77 

"  1 

WATRTGHT  GRPS<18 

<  D . HULL 

"WGRPS 

<77 

”  1 

<77  | 

ft 

"1 

COMMENTS 

<77 

1" 

"|  <4  <D.HU_COMl  <77 
"|  <4  <D. HU_COM2  <77  |" 

" |  <4  <D . HU  COM3  <77  | " 

M _ _ _ — _  _ _ _ _ _ _ _  _ _ _ _ ^  ^  _ _ « 

"|  (TAB]  NEXT  FIELD,  (RETURN]  TAKE  ACTION,  ( PF3 ]  QUIT 

ON  MATCH  DELETE 

_  * 

ENDCASE 
_  * 

DATA 
END 
_  * 

-RUN 

-GOTO  HULL3 
_  * 

-HULL3C 


MODIFY  FILE  HULLCNFG 
CRTFORM  LINE  1 


DEL  HULL  SPECIFICATIONS  (HULLSPEC  SEGMENT) 


"|  <77  |" 

" |  TYPE 
" |  SUBTYPE 
"|  <77 
" !  <77  |" 
"|  <77 
"|  <77  |" 
"|  <77  |" 
"|  <77  |" 
"|  <77  I" 
"|  <77  |" 
"|  <77  |" 


<16  <  HULL_TYP  <77 
<16  <  HULL  STYP  <77 


ft 

ft 
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"I  (TAB)  NEXT  FIELD,  [RETURN)  TAKE  ACTION,  [ PF  3  )  QUIT 

n 

MATCH  HULL_TYP  HULL_STYP 
ON  NOMATCH  REJECT 
ON  MATCH  GOTO  HULLA3C 

.  * 

CASE  HULLA3C 
.  * 

CRTFORM  LINE  1 

”|  DEL  DESCRIPTION  ( HULLSPEC  SEGMENT) 


"|  MFR/DESIGNER  <20  <  MFR 

"|  MFRNUMBER  <20  <  MFR- 

MATCH  MFR_ID  MFR  NO 
ON  NOMATCH  REJECT 
ON  MATCH  CONTINUE  TO  HULL_LOA 
ON  NOMATCH  REJECT 
ON  MATCH  CRTFORM 
"|  LOA  <  20<D . HULL_LOA 

”|  MX  BEAM  <20<D.HULL_BEAM 

"j  MN  DRAFT  < 2 0 < D . HULLMN  DRFT 
"|  FREEBOARD  < 20<D . HULLFB5 
"|  DEADWEIGHT  20<D.  HULL  DWT 
"|  DRA  MIDCHN<20<D. HULL_DRA  MC 
"|  BLCK  COEFF<20<D. HULL  BLCK  CO 

"I 

"|  <4  <D.SPEC_COHl  <77 
<4  <D.SPEC_COH2  <77  |" 

" |  <4  <D . SPEC  COM3  <77  | " 


<77  |  - 

(  PRESS  RETURN  )  <77 


<38  HULL  LBP  <60  <D . HULL 
<38  MX  DRAFT  <60  <D.HULL~ 
<38  LT  DRFT  <60  <D . HULL" 
<38  FL  LD  DIS  <60  <D.HULL" 
<38  DRA  STERN  <60  <D.HULL~ 
<38  MX  DEPTH  <60  <D.HULL~ 
<38  PRIS  COEFF<60  <D . HULL' 
COMMENTS  <77  I" 


LBP  <77 
MXDRFT  <77 
LS_DRFT  <77 
FL_DIS  <77 
DRA_ST  <77 
MX  DPTH  <77 
PRlS  CO  <77 


"|  [TAB]  NEXT  FIELD,  t  RETURN )  TAKE  ACTION,  [ PF3 ]  QUIT 

.  —  —  —  —  —  —  —  —  —  —  —  _  —  —  —  —  —  —  —  —  —  —  —  •  —  —  •  —  —  —  —  —  —  —  —  —  — 

ON  MATCH  DELETE 

-* 

ENDCASE 
_  * 

DATA 

END 

-* 

-RUN 

-GOTO  HULL 3 
_* 

-HULL3D 
_  * 

MODIFY  FILE  HULLCNFG 
CRTFORM  LINE  1 


DEL  RIDE  CONTROL  DATA  ( RIDECNTR  SEGMENT) 


I  <77  |" 
j  TYPE 
|  SUBTYPE 
I  <77  |" 

I  <77  I" 

I  <77  |" 

I  <77  |- 
I  <77  |" 

I  <77  I" 

I  <77  I" 


<16  <  HULL_TYP  <77 
<16  <  HULL  STYP  <77 
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"|  <77  ;" 
"|  <77  j “ 
"|  <77  |" 
M|  <77  |  " 


(TAB]  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  [PF3]  QUIT 


MATCH  HULL  TYP  HULL_STYP 
ON  NOMATCH  REJECT 
ON  MATCH  GOTO  HULLA3D 

.  * 

CASE  HULLA3D 


CRTFORM  LINE  1 


DEL  RIDE  CONTROL  DATA  ( RIDECNTR  SEGMENT) 


"|  <77  I" 

"|  MFR/DESIGNER  <20  <  M 

”|  MFRNUMBER  <20  <  M 

MATCH  MFR_ID  MFR  NO 

ON  NOMATCH  REJECT 

ON  MATCH  CONTINUE  TO  CNTR_TYP 

ON  NOMATCH  REJECT 

ON  MATCH  CRTFORM 

"i  <77  r 

"|  CONTROL  TYPE  <20  <  D 

”|  CONTROL  DESC  <20  <  D 

"i  <77  r 

"I 

"j  <4  < D . CNTR_COHl  <77 
"|  <4  <D.CNTR_COH2  <77  |" 

"|  <4  < D . CNTR_COM 3  <77 

"|  <77  I" 

"I  <77 


MFRID 
MFR  NO 


<77  |  " 

<33  (PRESS  RETURN)  <77 


D.CNTR_TYP 
D.CNTR  DESC 


COMMENTS  <77 


TAB]  NEXT  FIELD,  (RETURN]  TAKE  ACTION,  [ PF3 ]  QUIT 


ON  MATCH  DELETE 

.* 

ENDCASE 
.  * 

DATA 
END 
.  * 

-RUN 

-GOTO  HULL3 


-AMV3 
_  * 

MODIFY  FILE  HULLCNFG 
CRTFORM  LINE  I 


DEL  AMV  REFERENCES  ( AMVREF  SEGMENT) 


<77  |" 

TYPE  <16  <  HULL_TYP  <77  ] 
SUBTYPE  <16  <  HULL  STYP  <77  j 


"|  <77 
"|  <77 


B-210-22 


V  J  w*  /  *  »  ^ 


•  OO  * 


V^'.VVV 


I  <77  | 


"|  [TAB]  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  [ PF3  ]  QUIT 

MATCH  HULLTYP  HULL_STYP 
ON  NOMATCH  REJECT 
ON  MATCH  GOTO  AMVA3 

* 

CASE  AMVA3 
* 

CRTFORM  LINE  1 


DEL  AMV  REFERENCES  (AMVREF  SEGMENT) 


i  <77  r 

|  SHIP  ID  <16  <  SHIP_ID  <77  | 

i  <77  r 

|  <33  (  PRESS  RETURN  )  <77  |* 


MATCH  SHIPID 
ON  NOMATCH  REJECT 
ON  MATCH  CRTFORM 
"|  <77  |" 

"|  SHIPNAME  <16  <  D.SHIPNAME  <77 
"|  SHIP  FLAG  <16  <  D.SHIP~FLAG  <77 

"|  <77  T" 

"|  <77  I" 

"|  <77  |" 

"|  <77  |" 

"i  <77  r 

"I  <77  I" 


[TAB]  NEXT  riELD,  [RETURN]  TAKE  ACTION,  [ PF3 ]  QUIT 


ON  MATCH  DELETE 
GOTO  AMVA3 
* 

ENDCASE 

* 

DATA 

END 

* 

RUN 

GOTO  THREE 


MODIFY  FILE  HULLCNFG 
CRTFORM  LINE  1 


DEL  LITERATURE  REFERENCE  (LITREF  SEGMENT) 


<77  |  " 

TYPE  <16  <  HULL_TYP  <77  | 
SUBTYPE  <16  <  HULL  STYP  <77  | 
<77  I" 
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vjy.v.v 


'O.V.V.V.V.V 


[TAB)  NEXT  FIELD,  [RETURN)  TAKE  ACTION,  [ PF3 )  QUIT 


MATCH  HULL_TYP  HULL_STYP 
ON  NOMATCH  REJECT 
ON  MATCH  GOTO  LITA3 

-  * 

CASE  LITA3 


a 


CRTFORM  LINE  1 


DEL  LITERATURE  REFERENCE  (LITREF  SEGMENT) 


"|  REr  NUMBER  <17  <  REF_NUM  <77  | 
"|  <77 

"|  <33  (  PRESS  RETURN  )  <77  |H 


MATCH  REF  NUM 
ON  NOMATCH  REJECT 
ON  M^  CH  CRTFORM 
"|  <77  |" 

"I 

")  <77  |" 

" |  <8  <D . REF  DESC  <77 
"I  <77 
"|  <77  |" 

"|  <77  |" 

"|  <77 
"I  <77  I" 


REFERENCE  DESCRIPTION 


;tAB)  NEXT  FIELD,  [RETURN)  TAKE  ACTION,  [ P F 3  )  QUIT 


ON  MATCH  DELETE 
GOTO  LITA3 
.  * 

ENDCASE 
.  * 

DATA 
END 
.  * 

-RUN 

-GOTO  THREE 


-RUN 

-GOTO  TOP 


-FOUR 
.  * 

EX  OEB200 
END 


§ 
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jv.'v.v.v; 


—  * 


FILE  MAINTENANCE  ROUTINE  FOR  PROPULSN  FILE  -  OEB220 


-‘DESIGNED 

FOR  : 

USCG  RSD 

CENTER, 

OCEAN  ENGINEERING  BRANCH 

* 

-‘DESIGNED 

BY  : 

M.  J.  STEVENS  ( VTC ) 

* 

|  -‘DATE  LAST  REV  : 

5/12/87 

★ 

-  * 

-TOP 

-DEFAULTS 

SOPTION- 

0 

|  -CRTFORM  LINE  1 

II 

1 

II 

FILE 

MAINTENANCE  ROUTINES  FOR  PROPULSN  FILE  -  OEB220 

1  " 
•1 

-"1 

-"I 

_  It  t 

MAINTENANCE  OPTIONS  LIST 

1  ” 

1  H 

1" 

1  *  1 

'  ""I 

[1] 

ADD  PROPULSION  SYS 

1 

1  " 

:  -”i 

[2] 

CHG  PROPULSION  SYS 

1  " 

-"i 

(3) 

DEL  PROPULSION  SYS 

1  ” 

-”i 

(4] 

EXIT  PROPULSN  FILE 

1  " 

OPTION  — >  <  SOPTION 


(TAB]  NEXT  FIELD,  ( RETURN  1  TAKE  ACTION,  (PF3)  QUIT 


-IF  SOPTION  EQ  1 
-IF  SOPTION  EQ  2 
-IF  SOPTION  EQ  3 
-IF  SOPTION  EQ  4 
-GOTO  TOP 
.* 

-ONE 

.  * 

-CRTFORM  LINE  1 


GOTO  ONE; 
GOTO  TWO; 
GOTO  THREE; 
GOTO  FOUR; 


ADD  SYSTEMS  OPTIONS  FOR  PROPULSN  FILE  -  OEB220 


OPTIONS  LIST 


ADD  MAIN  SEGMENT 
ADD  DESIGN  SEGMENT 
ADD  AMV  REFERENCE 
ADD  LITERATURE  REF 
FM  DIRECTORY 


OPTION  -->  < SOPTION 


(TAB)  NEXT  FIELD,  (RETURN)  TAKE  ACTION,  [ PF3 )  QUIT 


-IF  SOPTION  EQ  1  GOTO  MAINl; 


B-220-1 


- 

7-  v 


-IF  &OPTION  EQ  1  GOTO  HULL1A 
-IF  40PTI0N  EQ  2  GOTO  HULL1B 
-IF  &OPTION  EQ  3  GOTO  HULL1C 
-IF  SOPTION  EQ  4  GOTO  HULLlO 
-IF  SOPTION  EQ  5  GOTO  ONE; 
-GOTO  HULL1 
_  * 

-HULL1A 


MODIFY  FILE  PROPULSN 
CRTFORM  LINE  1 


•I 


"  1 

II 

ADD  SYS  DESIGNS 

( PROSYS 

SEGMENT)  | 

II  1 

<77 

II 

tt  1 

TYPE 

<16 

<  PRO  TYP 

<77 

II 

If  j 

SUBTYPE 

<16 

<  PRO  STYP 

<77 

" 

II  1 

<77 

" 

II  1 

<77 

" 

II  1 

<77 

" 

II  j 

<77 

II 

II  1 

<77 

If 

It  1 

<77 

" 

II  j 

<77 

It 

It  1 

<77 

II 

II  1 

<77 

n 

II  1 

<77 

it 

II  1 

II 

<77 

n 

"1 

n 

(TABJ 

NEXT  FIELD, 

(RETURN]  TAKE 

ACTION,  [PF3]  QUIT  I 

MATCH  PRO  TYP 

PRO  STYP 

ON 

NOMATCH  REJECT 

ON 

MATCH  GOTO 

HULLAlA 

_  * 

CASE  HULLAlA 
* 

CRTFORM  LINE  1 


II 


"1 

II 

ADD  DESIGNS  {PROSYS  SEGMENT)  | 

"1 

MFR/DESIGNER 

<16 

< 

MFR  ID 

<77  |  " 

”  1 
•1 

MFRNUMBER 

<16 

< 

MFRNO 

<77  |" 

_  l 

"1 

<77  |" 

"1 

COMMENTS  <77  |" 

"1 

<77  |  " 

"1 

<4  <MFR  COMl 

<77  |" 

"1 

<4  <MFR  COM2 

<77  |" 

"1 

<4  <MFR  COM3 

<77  |" 

"I 

<77  |"  “ 

"1 

<77  |" 

"1 

<77  |  " 

"1 

<77  |  " 

”1 

If 

<77  |  " 

"1 
1*  _ 

[TAB] 

NEXT  FIELD, 

(RETURN]  TAKE  ACTION,  ( PF3 )  QUIT  j 

MATCH  MFR_ID  MFR_NO 
ON  MATCH  REJECT 
ON  NOMATCH  INCLUDE 
GOTO  HULLAlA 


ENDCASE 
_  * 

DATA 
END 
_  * 

-RUN 

-GOTO  HULL1 
_  * 

-HULL1B 

MODIFY  FILE  PROPULSN 
CRTFORM  LINE  1 


ADD  SYS  DESCRIPTION  ( PRODESC  SEGMENT) 


<77  |" 
TYPE 
SUBTYPE 
<77  |  " 
<77  )  " 
<77  I" 
<77  I" 
<77  |  n 
<77  |" 
<77 
<77 

<77  r 
<77  I" 
<77  I" 


<16  <  PRO  TYP  <77  |M 
<16  <  PRO'STYP  <77  |H 


(TAB)  NEXT  FIELD,  (RETURN]  TAKE  ACTION,  [  PF3 ]  QUIT 


MATCH  PROTYP  PROSTYP 
ON  NOMATCH  REJECT 
ON  MATCH  GOTO  HULLA1B 

.  * 

CASE  HULLA1B 
.  * 

CRTFORM  LINE  1 


ADD  DESCRIPTION  (PRODESC  SEGMENT) 


MFR/DESIGNER 
MFR  NUMBER 


<16  <  MFR_ID 
<16  <  MFR  NO 


FUNCTION  <13  < 
HP  COMMENT  <13  < 
ST  METHOD  <13  < 
<77  |" 

<77 

<77  |  " 

<4  <  PR_COMl  <77 
<4  <  PR_COM2  <77 
<4  <  PR  COM3  <77 
<77  I" 


PRO_FNCTN  <36  HP  TYPE 
PRO  HP  COM  <38  FUEL  TYPE 


<50  <PRO_HP_TYP<77 
<50  <PRO  FUEL  <77 


PRO  ST  MTHD< 38  TURBO  (Y/N)  <50  <PRO  TURBO  <77 


COMMENTS  <77  | 


(TAB]  NEXT  FIELD,  (RETURN]  TAKE  ACTION,  ( PF3  J  QUIT 


MATCH  MFR_ID  MFR_NO 
ON  NOMATCH  REJECT 
ON  MATCH  CONTINUE  TO  PRO_FNCTN 
ON  MATCH  REJECT 


B-220-4 


WWW 


m 


v. '•■'""■j* p»j j .» .« j,*o."j,' »j.i. a ju m« . i,. >m .n,^ . y, ^ |V.WV7y 


53 

A 


S& 

K 

Jv 

;s 

iTv 

£ 
'•fc  * 

pV 

ft 


ON  NOMATCH  INCLUDE 

_  * 

ENDCASE 

.  * 

DATA 

END 

* 

RUN 

GOTO  HULL1 

* 

HULL1C 

* 

MODIFY  FILE  PROPULSN 
CRTFORM  LINE  1 


1 

ADD 

SYS 

SPECIFICATIONS  (PROSPEC  SEGMENT)  | 

1  <77 
|  TYPE 

" 

<16  < 

PRO 

TYP  <77  1” 

I  SUBTYPE 

<16  < 

PRO 

STYP  <77 

1  <77 

" 

1  <77 

" 

1  <77 

" 

1  <77 

” 

1  <77 

1  <77 

" 

1  <77 

»» 

1  <77 

It 

1  <77 

It 

1  <77 

ft 

1  <77 

" 

[TAB]  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  [ PF3 ]  QUIT 


MATCH  PROTYP  PROSTYP 
ON  NOMATCH  REJECT 
ON  MATCH  GOTO  HULLAIC 

.  * 

CASE  HULLAIC 
.  * 

CRTFORM  LINE  1 


***  ADD  SPECIFICATIONS  ( PROSPEC  SEGMENT)  *** 
MFR/DES  <20  <MFR_ID  <77  |" 

MFR  NO  <20  <MFR  NO  <77  I" 


"1 

HP 

<20 

<PRO 

HP 

<38 

RPM 

<60 

<PRO 

RPM 

<77 

"1 

VOLUME 

<20 

<PRO' 

VOL 

<38 

WEIGHT 

<60 

<PRO~ 

'WEIGHT 

<77 

"1 

LENGTH 

<20 

<PRO* 

LEN 

<38 

WIDTH 

<60 

<PRO~ 

'WIDTH 

<77 

"1 

HEIGHT 

<20 

<PRO' 

HEIGHT 

<38 

SFC 

<60 

<PRO 

'src 

<77 

"1 

PWR/COST 

<20 

<PRO_ 

PWR  CST 

<38 

MNT  COST 

<60 

<  PRO 

"MNT  CST 

<77 

"1 

MNT  HOURS 

<20 

<PRO" 

'MNT  MHR 

<38 

CYCLES 

<60 

<PRO 

CYCLE 

<77 

"1 

NO  CYLDRS 

<20 

<PRO~ 

‘NO  £YL 

<38 

STROKE 

<60 

<PRO 

'STROK 

<77 

"1 

BORE 

<20 

<PRO‘ 

'bore 

<38 

MEP 

<60 

<PRO 

“MEP 

<77 

"1 

REL  RATING 

<20 

<PRO* 

'REL  RAT 

<38 

ORD  TM 

<60 

<PRO 

ORD  TM 

<77 

"  1 

DIS 

<20 

<PRO" 

'DIS 

<77 

1" 

"  1 

COMMENTS  <77 

1" 

<4  < SPEC_COMl  <77  |" 

<4  <SPEC_COM2  <77 
<4  <SPEC_COM3  <77 

***  [TAB]  NEXT  FIELD, 


[RETURN]  TAKE  ACTION,  [ PF3 ]  QUIT  *** 


MATCH  MFR_ID  MFR  NO 
ON  NOMATCH  REJECT 


ON  MATCH  CONTINUE  TO  PRO_HP 
ON  MATCH  REJECT 
ON  NOMATCH  INCLUDE 


_  * 

ENDCASE 
_  * 

DATA 
END 
—  * 

-RUN 

-GOTO  HULL1 
_  * 

-HULL1D 


MODIFY 

FILE 

PROPULSN 

CRTFORM 

ft 

LINE 

1 

"I 

tt 

ADD  DRIVE  SYSTEM  DATA  ( PRODRV  SEGMENT)  | 

”  |  <77 

r 

..  type 

<16  <  PRO  TYP  <77  |  " 

" 1  SUBTYPE 

<16  <  PRO  STYP  <77  | " 

"|  <77 

r 

"  |  <77 

r 

"|  <77 

r 

"  |  <77 

i " 

"  |  <77 

r 

"|  <77 

i " 

"|  <77 

i " 

"  |  <77 

r 

M|  <77 

i " 

"|  <77 

i " 

"|  <77 

ft 

i " 

"1 

[TAB]  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  [ P F 3  ]  QUIT  | 

ft 

MATCH  PRO  TYP  PROSTYP 
ON  NOMATCfH  REJECT 
ON  MATCH  GOTO  HULLA1D 

* 

CASE  HULLA1D 
* 

CRTFORM  LINE  1 


it 


"1 

rt 

ADD  DRIVE  SYSTEM  DATA 

(PRODRV  SEGMENT)  | 

"1 

MFR/DESIGNER 

<20 

< 

MFR  ID 

<77 

tt 

"1 

ft 

MFRNUMBER 

<20 

< 

MFRNO 

<77 

tt 

"1 

DRIVE  MFR 

<20 

< 

DRV  MFR 

<77 

"  ”  “  -  ’  -----  -j 

tt 

"1 

DRIVE  MODEL 

<20 

< 

DRV  MOD 

<77 

" 

"1 

DRIVE  TYPE 

<20 

< 

DRV  TYP 

<77 

" 

"1 

RED  RATIO 

<20 

< 

DRV  RED  RAT 

<77 

" 

"I 

VOLUME 

<20 

< 

DRV  VOL 

<77 

" 

"I 

WEIGHT 

<20 

< 

DRV  WEIGHT 

<77 

" 

"1 

REVERSING  (Y/N) 

<20 

< 

DRV  REV 

<77 

" 

"1 

COMMENTS 

<77 

1" 

"1 

<4  <  DRV  COM1  <77 

1" 

"1 

<4  <  DRV  COM2  <77 

1" 

"1 

tt 

<4  <  DRV_COM3  <77 

r 

"I 

it 

[TAB] 

NEXT 

FIELD,  [RETURN]  TAKE  ACTION,  [ PF3 ]  QUIT  I 

MATCH  MFR_ID  MFR_NO 
ON  NOMATCH  REJECT 
ON  MATCH  CONTINUE  TO  DRV_MFR 
ON  MATCH  REJECT 
ON  NOMATCH  INCLUDE 

_  * 

ENDCASE 
_  * 

DATA 
END 
_  * 

-RUN 

-GOTO  HULL1 
_  * 

-AMVl 


MODIFY  FILE  PROPULSN 
CRTFORM  LINE  1 


ADD  AMV  REFERENCES  (AMVREF  SEGMENT) 


"1 

<77 

r 

"1 

SYS 

TYPE 

<16  < 

PRO  TYP 

<77  |  M 

"1 

SYS 

SUBTYPE 

<16  < 

PRO  STYP 

<77  |" 

"1 

<77 

1” 

"1 

<77 

1  " 

"1 

<77 

1  " 

"1 

<77 

1  " 

"  1 

<77 

1  " 

"  ! 

<77 

1  " 

”1 

<77 

1  " 

"1 

<77 

1" 

"  1 

<77 

1  " 

”1 

<77 

1" 

"  | 

<77 

1  " 

if  _ 

[TAB]  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  [ P F 3 ]  QUIT 


I  " 


MATCH  PROTYP  PROSTYP 
ON  NOMATCH  REJECT 
ON  MATCH  GOTO  AMVA1 

.  * 

CASE  AMVA1 
.  * 

CRTFORM  LINE  1 


ADD  AMV  REFERENCES  (AMVREF  SEGMENT) 


"1 

<77 

" 

”  1 

SHIP 

ID 

<16 

< 

SHIP 

ID 

<77 

"1 

<77 

" 

"1 

SHIP 

NAME 

<16 

< 

SHIP 

NAME 

<77 

"  1 

SHIP 

FLAG 

<16 

< 

SHIP 

FLAG 

<77 

"  | 

<77 

" 

"  I 

<77 

" 

"  1 

<77 

• 

"1 

<77 

" 

"  I 

<77 

" 

"  | 

<77 

" 

"1 

<77 

" 

"1 

<77 

" 

"  1 

<77 

” 

[TAB]  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  (PF3)  QUIT 


MATCH  SHIP_ID 
ON  MATCH  REJECT 
ON  NOMATCH  INCLUDE 
GOTO  AMVAl 
_  * 

ENDCASE 
_  * 

DATA 
END 
_  * 

-RUN 

-GOTO  ONE 


-LIT1 

_  * 

MODIFY  FILE  PROPULSN 
CRTFORM  LINE  1 

_ _ _ _ _ _ _ _ _ __ _ _ _ _  __ __ 

"I  ADD  LITERATURE  REFERENCES  (LITREF  SEGMENT) 

n _ _ _ _ _ _ _ _ _  i 

"|  <77  I" 

”|  SYS  TYPE  <16  <  PRO  TYP  <77  |" 

"|  SYS  SUBTYPE  <16  <  PRO~STYP  <77  |" 

M|  <77  I" 

"|  <77  |" 

"|  <77  I" 

"|  <77  I" 

”|  <77 
"|  <77 
"|  <77  I" 

"|  <77  I" 

"|  <77  I" 

"|  <77  |" 

"|  <77  I" 

M _ _ _ _ ________ _ __ _ _ _ _ _ _ _ _ __ _ _ _ H 

"|  [TAB)  NEXT  FIELD,  [RETURN)  TAKE  ACTION,  [ PF3 )  QUIT 

MATCH  PROTYP  PROSTYP 
ON  NOMATCH  REJECT 
ON  MATCH  GOTO  LITAl 

_  * 

CASE  LITAl 
_  * 

CRTFORM  LINE  1 

tl  _______________________________________________________ _ ' 

"|  ADD  LITERATURE  REFERENCES  (LITREF  SEGMENT)  I' 

n ___________________________________________________ _ _  _  _  * 

"|  <77  |" 

"|  REFERENCE  NO  <17  <  REF  NUM  <77 

"i  <77  r 

"|  DESCRIPTION  <17  <  REF  DESC  <77 
"|  <77  |" 

H|  <77  I" 

"|  <77  I" 

"|  <77 
"|  <77  I" 

"|  <77  |" 

"|  <77  |" 

<77  | " 

"|  <77  I" 
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(TAB)  NEXT  FIELD,  tRETURN]  TAKE  ACTION,  [ PF3  )  QUIT 


<7  /  | 


"  I 


MATCH  REF_NUM 
ON  MATCH  REJECT 
ON  NOMATCH  INCLUDE 
GOTO  LITAl 

.  * 

ENDCASE 
.  * 

DATA 
END 
.  * 

-RUN 

-GOTO  ONE 


-TWO 


-CRTFORM  LINE  1 


CHANGE  CONFIGURATIONS  OPTIONS  FOR  PROPULSN  FILE  -  OEB220 


-"I 


OPTIONS  LIST 

(1)  CHG  MAIN  SEGMENT 

(2)  CHG  DESIGN  SEGMENT 

( 3 )  CHG  AMV  REFERENCES 

(4)  CHG  LITERATURE  REFS 

(5)  FM  DIRECTORY 

OPTION  — >  <SOPTION 


<77 

<77 


(TAB)  NEXT  FIELD,  (RETURN)  TAKE  ACTION,  ( PF3 )  QUIT 


-IF  SOPTION  EQ  1 
-IF  SOPTION  EQ  2 
-IF  SOPTION  EQ  3 
-IF  SOPTION  EQ  4 
-IF  SOPTION  EQ  5 
-GOTO  TWO 


GOTO  MAIN2; 
GOTO  HULL2; 
GOTO  AMV2; 
GOTO  LIT2 ; 
GOTO  TOP; 


-MAIN2 
.  * 

MODIFY  FILE  PROPULSN 
CRTFORM  LINE  1 


CHANGE  MAIN  SYSTEM  ( PROTYP  SEGMENT) 


"|  <77  |" 

"|  TYPE  <10  <  PRO_TYP 

"|  SUBTYPE  <10  <  PRO  STYP 

"|  <77 

"|  <33  (  PRESS  RETURN  )  <77 
"|  <77  |" 

MATCH  PRO_TYP  PRO_STYP 
ON  NOMATCH  REJECT 


<77 

<77 


B- 220-9 


a 


3 

i-i 

‘-V 

9 


i "  r 


■3 


...  *1 


% 

t 

$ 


ON  MATCH  CRTFORM 

I 

I  <77  |" 

|  <T.PRO_COMl>  <77 
|  <T.PRO_COM2>  <77 
j  <T . PRO  COM3 >  <77 

i  <77  r 

I  <77  I" 

I  <77  I" 


COMMENTS  <77 


[TAB]  NEXT  flELD,  [RETURN)  TAKE  ACTION,  [PF3]  QUIT 


ON  MATCH  UPDATE  PRO  COM1  PRO_COM2  PRO_COM3 
DATA 
END 
* 

RUN 

GOTO  TWO 
* 

HULL2 

* 

CRTFORM  LINE  1 


SYS  DESIGN  CHG  OPTIONS  FOR  PROPULSN  FILE  -  OEB220 


OPTIONS  LIST 

CHG  SYS  DESIGN 
CHG  SYS  DESCRIPTION 
CHG  SYS  SPECIFICATIONS 
CHG  DRIVE  SPECS 
FM  DIRECTORY 

OPTION  — >  < (OPTION 


■"|  <77 
•"|  <77 


NEXT  FIELD,  [RETURN]  TAKE  ACTION,  [ PF3  ]  QUIT 


-IF  SOPTION  EQ  1  GOTO  HULL2A; 
-IF  &OPTION  EQ  2  GOTO  HULL2B; 
-IF  &OPTION  EQ  3  GOTO  HULL2C ; 
-IF  &OPTION  EQ  4  GOTO  HULL2D; 
-IF  &OPTION  EQ  5  GOTO  TWO; 
-GOTO  HULL2 
_  * 

-HULL2A 

_* 

MODIFY  FILE  PROPULSN 
CRTFORM  LINE  1 


CHG  SYS  DESIGN  ( PROSYS  SEGMENT) 


"|  <77  |" 

" j  TYPE 
" j  SUBTYPE 
"|  <77 
<77  |" 
"I  <77  I" 


<16  <  PRO  TYP 
<16  <  PRO'STYP 
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■1  1 

<77 

1  " 

If  1 

<77 

I  " 

It  1 

<77 

1  " 

It  1 

<77 

1  " 

M  j 

<77 

1  " 

ft  1 

<77 

1  " 

It  1 

<77 

1  " 

« _ _ _ _ _ _ _ It 

"|  (TAB)  NEXT  FIELD,  (RETURN)  TAKE  ACTION,  [  PF3  )  QUIT  j  '' 

« _ >i 

MATCH  PRO  TYP  PRO  STYP 
ON  NOMATCH  REJECT 
ON  MATCH  GOTO  HULLA2A 

* 

CASE  HULLA2A 


CRTFORM  LINE  1 


CHG  DESIGN  (PROSYS  SEGMENT) 


<77  | " 

"j  MFR/DESIGNER  <16  <  MFR_ID  <77  |" 

"|  MFRNUMBER  <16  <  MFR_NO  <77  | " 

"|  <77  I" 

"|  <30  (  PRESS  RETURN  )  <77  )" 

MATCH  MFRID  MFR  NO 
ON  NOMATCH  REJEC? 

ON  MATCH  CRTFORM 

"|  <77  I" 

”|  COMMENTS  <77 

"|  <77  |" 

"  |  <4  <T.MFR_COMl>  <77  |  " 

"|  <4  <  T . MFR_COM2>  <77  |" 

"  |  <4  <T.MFR  COM3>  <77  |  " 

"f  <77  |" 

"|  <77  I" 

"|  <77  |B 

If  _  — _  —  _  —  —  _  —  _  ___________________  __________________ 

"|  (TAB)  NEXT  FIELD,  (RETURt!)  TAKE  ACTION,  (  PF3 )  QUIT 


ON  MATCH  UPDATE  MFRCOMl  MFR_COM2  MFR_COM3 

-  * 

ENDCASE 
_  * 

DATA 
END 
_  * 

-RUN 

-GOTO  HULL2 

_  * 

-HULL2B 
_  * 

MODIFY  FILE  PROPULSN 
CRTFORM  LINE  1 


CHG  SYS  DESCRIPTION  ( PRODESC  SEGMENT) 


"i  <77  r 

"|  TYPE  <16  <  PRO_TYP  <77  |" 

"j  SUBTYPE  <16  <  PRO_STYP  <77 

"|  <77  I" 

"|  <77  |" 


ft 

M 

«« 


If 

f* 

It 


ft 

It 

H 


B- 220- 1 1 


CHG  DRIVE  SYSTEM  DATA  ( PRODRV  SEGMENT) 


MFR/DESIGNER 
MFR  NUMBER 


<  MFR  ID 

<  MFR~ NO 


<77  |  " 

<33  (PRESS  RETURN) 


MATCH  MFRID  MFRNO 
ON  NOMATCH  REJECT 
ON  MATCH  CONTINUE  TO  DRVMFR 
ON  NOMATCH  REJECT 
ON  MATCH  CRTFORM 
"  |  DRIVE  MFR  v ’0  <T 

" |  DRIVE  MODEL  <20  * 

"|  DRIVE  TYPE  <20  <T 

"  |  RED  RATIO  <20  <T 

"|  VOLUME  <20  <T 

"|  WEIGHT  <20  <T 

"|  REVERSING  (Y/N)  <20  <T 

"  I 

"|  <4  <T.DRV_COMl>  <77 
"|  <4  <T.DRV_COM2>  <77 
"I  <4  <T. DRV  COM3 >  <77  | " 


v’O 

<T . DRV  MFF> 

<77 

<20 

.  DRV  MOD> 

<77 

<20 

<T. DRV  TYP> 

<77 

<20 

<T . DRV  RED  RAT> 

<77 

<20 

<T . DRV  VOL> 

<77 

<20 

<T.DRV~WEIGHT> 

<77 

<20 

<T.DRV~REV> 

COMMENTS 

<77 

<77 

(TABJ  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  [ PF3  ]  QUIT 

ON  MATCH  UPDATE  DRV_MFR  DRV_MOD  DRV_TYP  DRV_RED_RAT  DRV_VOL 
ON  MATCH  UPDATE  DRVWEIGHT  DRVREV  DRV_COMl  DRV_COM2  DRV_COM3 

* 

ENDCASE 

* 

DATA 

END 

* 
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L*  iUtlil|l  ,fc*  A*,  h1*  A*  A*  »*  I*  ,t|*,  4»,,U*.lll'.lt*1lf»>  Il’-Aa*  _>■*.  I.1.  .to-  J| 


a 


a 


-RUN 

-GOTO  TWO 


MODIFY  FILE  PROPULSN 
CRTFORM  LINE  1 


CHG  LITERATURE  REFERENCE  (LITREF  SEGMENT) 


<77  |  " 

TYPE  <16  <  PRO_TYP  <77  |" 
SUBTYPE  <16  <  PRO_STYP  <77  j" 
<77  |" 


ON  MATCH  UPDATE  REFJ5ESC 
GOTO  LITA2 
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xmjnrKvn V. IWITOAHW  7Vgy?T7FITOTE  '.VJf  VW  W^VwV^V.TFJ  V-.WV 


ENDCASE 
.  * 

DATA 

END 

* 

RUN 

GOTO  TWO 
THREE 

CRTFORM  LINE  1 


■"I 


DELETE  SYSTEMS  OPTIONS  FOR  PROPULSN  FILE  -  OEB220 


I 


OPTIONS  LIST 

(1]  DEL  MAIN  SEGMENT 

(2]  DEL  DESIGN  SEGMENT 

(3]  DEL  AMV  REFERENCES 

(4]  DEL  LITERATURE  REFS 
[51  FM  DIRECTORY 

OPTION  -->  <(OPTION 


I  <77  | 
f  <77  | 


I 


[TAB]  NEXT  FIELD,  [RETURN)  TAKE  ACTION,  [PF3]  QUIT 


-IF  (OPTION  EQ  1 
-IF  (OPTION  EQ  2 
-IF  (OPTION  EQ  3 
-IF  (OPTION  EQ  4 
-IF  (OPTION  EQ  5 
-GOTO  THREE 
_* 

-MAIN3 


MODIFY  FILE  PROPULSN 
CRTFORM  LINE  1 


GOTO  MAIN3; 
GOTO  HULL 3; 
GOTO  AMV 3 ; 
GOTO  LIT3 ; 
GOTO  TOP; 


DELETE  MAIN  SYSTEM  (PROTYP  SEGMENT) 


"|  <77  |" 

"|  TYPE  <10  <  PRO_TYP  <77  |" 

"|  SUBTYPE  <10  <  PRO  STYP  <77 
"|  <77  |" 

"1  <33  (  PRESS  RETURN  )  <77 


MATCH  PRO  TYP  PRO_STYP 
ON  NOMAT^H  REJECT 
ON  MATCH  CRTFORM 
"|  <77  |" 

"I 

"|  <4  <D.PRO_COMl  <77 
"|  <4  <D.PRO_COM2  <77  p 
" |  <4  <D . PRO  COM3  <77  j " 
"I  <77  I" 


COMMENTS  <77 


<77 

<77 


I 


I 
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"  1 

11 

[TAB] 

NEXT 

FIELD,  [RETURN)  TAKE  ACTION, 

[  P  F  3  ] 

QUIT 

1  ” 
*1 

ON  MATCH  DELETE 

DATA 

END 

-RUN 

-GOTO  THREE 

-HULL3 
_  * 

-CRTFORM 

tl 

LINE 

1 

ft 

-"I 

It 

SYS  DESIGN  DEL  OPTIONS  FOR  PROPULSN  FILE 

-  OEB2  20 

1" 

11 

-”l 

-"1 

-"1 
—  "  1 

OPTIONS  LIST 

1" 

1  " 

1  " 

! 

-"1 

[1]  DEL  SYS  DESIGN 

1 

I  '* 

-"  1 

[2]  DEL  SYS  DESCRIPTION 

1" 

1 

[3]  DEL  SYS  SPECIFICATIONS 

!  " 

-"1 

[4]  DEL  DRIVE  SYS  SPECS 

r 

“"I 

M  1 

[5]  FM  DIRECTORY 

i" 

1 

-"1 

OPTION  — >  < (OPTION 

i 

-"|  <77  | 

r 

i 

-"1  <77  | 

M 

i " 

it 

-"1 

[TAB] 

NEXT 

FIELD,  [RETURN]  TAKE  ACTION, 

[  P  F  3  I 

QUIT 

i " 

n 

i» 

-IF  &OPTION  EQ  1  GOTO  HULL3A; 
-IF  & OPTION  EQ  2  GOTO  HULL3B; 
-IF  &OPTION  EQ  3  GOTO  HULL3C ; 
-IF  &OPTION  EQ  4  GOTO  HULL3D; 
-IF  &OPTION  EQ  5  GOTO  THREE; 
-GOTO  HULL3 
.  * 

-HULL3A 
.  * 


[TAB]  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  [ PF 3  ]  QUIT 


MATCH  PRO_TYP  PRO_STYP 
ON  NOMATCH  REJECT 
ON  MATCH  GOTO  HULLA3A 

* 

CASE  HULLA3A 
* 

CRTFORM  LINE  1 


”|  DEL  DESIGN  ( PROSYS  SEGMENT) 

It _ _  _ _ _ __________________________________ 

"I  <77 

"|  MFR/DE SIGNER  <16  <  MFR  ID  <77 

"j  MFR  NUMBER  <16  <  MFR~NO  <32  (PRESS  RETURN)  <77  |" 

"|  <77  |" 

MATCH  MFR_ID  MFR_NO 
ON  NOMATCH  REJECT 
ON  MATCH  CRTFORM 

"|  COMMENTS  <77  |" 

"|  <4  <D.MFR_COMl  <77  |" 

"|  <4  <D.MFR_COM2  <77  ]" 

"  |  <4  <D . MFR  COM3  <77  | " 

"|  <77  |" 

"|  <77  |" 

"|  <77  |" 

"|  <77  |" 

"|  <77  |" 

"|  <77  |" 

n _ _  _  _  _ _  _  _ — _ — — — _ — _ _ _  _ _ _ _ _  _ , 

"|  [TAB]  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  [ PF3 ]  QUIT 

H _ _ _ _  _ _ _ _ _ _ _ _ _ _ _ _ _ ^  _ 

ON  MATCH  DELETE 
GOTO  HULLA3A 

_* 

ENDCASE 
—  * 

DATA 
END 
_  * 

-RUN 

-GOTO  HULL3 
_  * 

-HULL3B 
_  * 

MODIFY  FILE  PROPULSN 
CRTFORM  LINE  1 

"|  DEL  SYS  DESCRIPTION  ( PRODESC  SEGMENT) 

It  _  _  _  _  _  _  _  _  _  __________________________________________________ 

"|  <77  I" 

"|  TYPE  <16  <  PRO_TYP  <77  |" 

”|  SUBTYPE  <16  <  PRO_STYP  <77  |" 

"i  <77  r 

"|  <77  I" 

"|  <77 
"|  <77  I" 

"|  <77  j" 

"|  <77 
"|  <77 
”|  <77  |" 

"|  <77  I" 

"|  <77  |M 


il 

it 

II 


il 


II 
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(TAB)  NEXT  FIELD,  (RETURN]  TAKE  ACTION,  ( PF3 ]  QUIT 


"|  <77  | " 
”|  <77 
"|  <77  |" 
"|  <77  |" 


it 


MATCH  PRO_TYP  PRO_STYP 
ON  NOMATCH  REJECT 
ON  MATCH  GOTO  HULLA3C 

* 

CASE  HULLA3C 
* 

CRTFORM  LINE  1 

M _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ II 

"|  ***  DEL  DESCRIPTION  ( PROSPEC  SEGMENT)  ***  j" 

"I  MFR/DESIGNER  <20  <  MFR_ID  <77  |" 

"|  MFR_NUMBER  <20  <  MFR_NO  (  PRESS  RETURN  )  <77  |" 

MATCH  MFR_ID  MFR_NO 
ON  NOMATCH  REJECT 
ON  MATCH  CONTINUE  TO  PRO_HP 
ON  NOMATCH  REJECT 
ON  MATCH  CRTFORM 


"1 

HP 

<20 

<D . PRO 

HP> 

<38 

RPM 

<60 

<D . PRO 

RPM> 

<77 

r 

"1 

VOLUME 

<20 

<D . PRO- 

VOL) 

<38 

WEIGHT 

<60 

<D .  PRO- 

'WEIGHT) 

<77 

i " 

"1 

LENGTH 

<20 

<D.PRO“ 

‘LEN> 

<38 

WIDTH 

<60 

<D .  PRO” 

'WIDTH) 

<77 

i " 

"1 

HEIGHT 

<20 

<D . PRO 

HEIGHT) 

<38 

SFC 

<60 

<  D .  PRO- 

'SFC> 

<77 

i " 

"  1 

PWR/COST 

<20 

<D . PRO- 

PWR  CSTX38 

MNT  COST  <60 

<D .  PRO* 

MNT  CSTX77 

i " 

"1 

MNT  HOURS 

<20 

<D . PRO 

MNT  MHRX38 

CYCLES 

<60 

<  D . PRO* 

CYCLE) 

<77 

i " 

"  1 

NO  CYLDRS 

<20 

<D. PRO- 

NO  CYL> 

<38 

STROKE 

<60 

<D .  PRO” 

'STROK) 

<77 

i " 

"1 

BORE 

<20 

<D . PRO- 

BORE) 

<38 

MEP 

<60 

<  D .  PRO” 

'MEP> 

<77 

i M 

"1 

REL  RATING<20 

<D. PRO 

REL  RATX38 

ORD  TM 

<60 

<  D .  PRO” 

'ORD  TM) 

<77 

i " 

"1 

DIS 

<20 

<D . PRO- 

DIS> 

<77 

r 

”1 

COMMENTS 

<77  | 

n 

"I  <4  <D.SPEC_COMl>  <77 

"(  <4  <D.SPEC_COM2>  <77  (” 

"|  <4  <D.SPEC_COM3>  <77 

"|  ***  [TAB]  NEXT  FIELD,  (RETURN]  TAKE  ACTION,  ( PF3 ]  QUIT  ***  |" 

»» _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ri 

ON  MATCH  DELETE 

_  * 

ENDCASE 

-* 

DATA 
END 
_  * 

-RUN 

GOTO  HULL3 

.  * 

HULL3D 
.  * 

MODIFY  FILE  PROPULSN 
CRTFORM  LINE  1 

ii _ _ " 

"|  DEL  DRIVE  SYSTEM  DATA  ( PRODRV  SEGMENT)  I" 

n _ _ _ _ _ _ _ _ _ —  — _ _ _ _ _ _ _ _ _ _ _ _ _ ____" 

"|  <77  (" 

M|  TYPE  <16  <  PRO  TYP  <77  |" 

"|  SUBTYPE  <16  <  PRO- STYP  <77  |" 

"|  <77  |" 

"|  <77  |" 

"|  <77 
"|  <77  |" 


t 


-\V 


a 


I 

9 


i 

s' 


1 

§ 


(TAB]  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  [ PF3 ]  QUIT 


MATCH  PRO_TYP  PRO  STYP 
ON  NOMATCH  REJECT 
ON  MATCH  GOTO  HULLA3D 

.  * 

CASE  HULLA3D 
CRTFORM  LINE  1 


DEL  DRIVE  SYSTEM  DATA  ( PRODRV  SEGMENT) 


M|  <77  |" 

"|  MFR/DESIGNER  <20  < 

"j  MFR_NUMBER  <20  < 

MATCH  MFRID  MFRNO 
ON  NOMATCH  REJECT 
ON  MATCH  CONTINUE  TO  DRV_MFR 
ON  NOMATCH  REJECT 
ON  MATCH  CRTFORM 
" |  DRIVE  MFR  <20  <D 

"j  DRIVE  MODEL  <20  <D 

"|  DRIVE  TYPE  <20  <D 

"|  RED  RATIO  <20  <D 

"|  VOLUME  <20  <D 

"j  WEIGHT  <20  <D 

"|  REVERSING  ( Y/N )  <20  <D 


<20  <  MFR_ID 
<20  <  MFR  NO 


<77  |  " 

<33  (PRESS  RETURN)  <77 


<20  <D.DRV_MFR> 

<20  <D.DRV_MOD> 

<20  <D.DRV_TYP> 

<20  <D.DRV_RED_RAT> 
<20  <D.DRV_VOL> 

<20  <D . DRV  WEIGHT) 
<20  <D.DRV~REV> 


"|  <4  <D.DRV_COMl>  <77 
"I  <4  <D.DRV_COM2>  <77  |" 
" |  <4  <D . DRV  COM3)  <77  | " 


COMMENTS  <77 


<77  |  " 
<77  |" 
<77  |" 
<77 

<77  I" 
<77  I" 
<77  I" 


[TAB]  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  [ P F 3  ]  QUIT 


ON  MATCH  DELETE 

.* 

ENDCASE 
.  * 

DATA 

END 

.* 

-RUN 

-GOTO  HULL3 


-AMV3 
_  * 

MODIFY  FILE  PROPULSN 
CRTFORM  LINE  1 


[TAB]  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  [ PF3 ]  QUIT 


MATCH  PRO_TYP  PRO_STYP 
ON  NOMATCH  REJECT 
ON  MATCH  GOTO  AMVA3 

.* 

CASE  AMVA3 
.  * 

CRTFORM  LINE  1 


DEL  AMV  REFERENCES  ( AMVREF  SEGMENT) 


"|  SHIP  ID  <16  <  SHIP_ID  <77  |" 

"i  <77  r 

” |  <33  (  PRESS  RETURN  )  <77  |" 


MATCH  SHIP_ID 
ON  NOMATCH  REJECT 
ON  MATCH  CRTFORM 
"|  <77  I" 

"|  SHI P_NAME  <16  <  D . SHIP_NAME  <77  |" 
"|  SHIP  FLAG  <16  <  D . SHIP  FLAG  <77 
"|  <77  T" 

"|  <77  |" 

"i  <77  r 

"|  <77  I" 

"|  <77  I" 


[TAB]  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  [PF3]  QUIT 


ON  MATCH  DELETE 
GOTO  AMVA3 
.  * 

ENDCASE 
.  * 

DATA 
END 
.  * 

-RUN 

-GOTO  THREE 


MODIFY  FILE  PROPULSN 
CRTFORM  LINE  1 


DEL  LITERATURE  REFERENCE  (LITREF  SEGMENT) 


_  * 
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FILE  MAINTENANCE  ROUTINE  FOR  PROPULSR  FILE  -  OEB230 


* _  _  _ 

-♦DESIGNED  FOR  : 

USCG  R&D  CENTER,  OCEAN  ENGINEERING 

BRANCH 

* 

-♦DESIGNED  BY  : 

M.  J.  STEVENS  ( VTC ) 

★ 

- *  DATE  LAST  REV  : 

5/12/87 

# 

_  ★ 

-TOP 

-DEFAULTS  &OPTION- 
-CRTFORM  LINE  1 

II 

0 

It 

-”|  FILE 

11 

MAINTENANCE  ROUTINES  FOR  PROPULSR 

FILE  -  OEB230 

1  " 
li 

MAINTENANCE  OPTIONS  LIST 

(1]  ADD  PROPULSOR  SYS 

(2]  CHG  PROPULSOR  SYS 
[ 3  )  DEL  PROPULSOR  SYS 
[4]  EXIT  PROPULSOR  FILE 

OPTION  — >  <40PTI0N 


[TAB]  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  [ PF3 ]  QUIT 


-IF  SOPTION  EQ 
-IF  &OPTION  EQ 
-IF  S.OPTION  EQ 
-IF  &OPTION  EQ 
-GOTO  TOP 
_  * 

-ONE 

-CRTFORM  LINE  1 


1  GOTO  ONE; 

2  GOTO  TWO; 

3  GOTO  THREE; 

4  GOTO  FOUR; 


ADD  SYSTEM  OPTIONS  FOR  PROPULSR  FILE  -  OEB230 


OPTIONS  LIST 

[1]  ADD  MAIN  SEGMENT 

[2]  ADD  DESIGN  SEGMENT 

[3]  ADD  AMV  REFERENCE 

[4]  ADD  LITERATURE  REF 
( 5  ]  FM  DIRECTORY 

OPTION  -->  < &OPTION 


[TAB]  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  [ P F 3 ]  QUIT 


-IF  &OPTION  EQ  1  GOTO  MAINl; 


B-230-1 


i 


-IF 

&OPTION 

EQ 

2 

GOTO 

HULL1 ; 

-IF 

40PTI0N 

EQ 

3 

GOTO 

AMVl ; 

-IF 

40PTI0N 

EQ 

4 

GOTO 

LIT1 ; 

-IF 

40PTI0N 

EQ 

5 

GOTO 

TOP; 

-GOTO  ONE 
_ * 


-MAIN1 


_  * 

MODIFY  FILE  PROPULSR 

CRTFORM  LINE  1 

M  it 

"1 

H 

ADD 

NEW  SYSTEM 

(PROTYP  SEGMENT) 

|  M 

"1 

TYPE  <10  <  PRO 

TYP 

<77  | 

tl 

"1 

II 

SUBTYPE  <10  <  PRO_ 

STYP 

<77  | 

II 

1  « 

”1 

<77  1" 

- j 

"I 

COMMENTS:  <77  1" 

"1 

<77  1" 

"1 

<  PRO  COMl  <77  |" 

"1 

<  PRO  COM2  <77  |" 

"  1 

<  PRO  COM3  <77  1” 

"1 

<77  |ir 

"  1 

<77  |" 

"1 

<77  |" 

"1 

<77  [" 

"1 

n 

<77  1” 

ft 

”1 

I  TAB] 

NEXT 

FIELD 

,  (RETURN] 

TAKE  ACTION,  ( PF3  ]  QUIT 

1  " 

if  __ 

•I 

MATCH  PROTYP  PROSTYP 
ON  MATCH  REJECT 
ON  NOMATCH  INCLUDE 
DATA 
END 
_  * 

-RUN 

-GOTO  ONE 
_  * 

-HULL1 
_  * 

-CRTFORM  LINE  1 

_  M _ _ _ _ H 

-"  |  SYS  DESIGN  ADD  OPTIONS  FOR  PROPULSR  FILE  -  OEB230 

M _  _  tl 


OPTIONS  LIST 

ID 

ADD  SYS  DESIGN 

[2] 

ADD  SYS  DESCRIPTION 

13] 

ADD  SYS  SPECIFICATIONS 

[4] 

ADD  SHAFT  SPECS 

[5] 

FM  DIRECTORY 

OPTION  — >  < iOPTION 

<77  |" 

<77 

NEXT  FIELD,  [ RETURN ]  TAKE  ACTION,  (Pr3J  QUIT 


-IF 

&OPTION 

EQ 

1 

GOTO 

HULLlA; 

-IF 

&OPTION 

EQ 

2 

GOTO 

HULL1B; 

-IF 

&OPTION 

EQ 

3 

GOTO 

HULL1C; 

-IF 

&OPTION 

EQ 

4 

GOTO 

HULL1D ; 

-IF 

iOPTION 

EQ 

5 

GOTO 

ONE; 

-GOTO  HULL1 


_  * 

-HULLlA 
_  * 


MODIFY  FILE  PROPULSR 
CRTFORM  LINE  1 

N 


1 

ADD  SYS  DESIGNS  ( PROSYS 

SEGMENT)  | 

1  <77 

" 

I  TYPE 

<16 

<  PRO  TYP 

<77 

1  SUBTYPE 

<16 

<  PRO  STYP 

<77 

1  <77 

It 

1  <77 

H 

1  <77 

ft 

1  <77 

It 

1  <77 

II 

1  <77 

•1 

1  <77 

II 

1  <77 

n 

1  <77 

« 

1  <77 

it 

1  <77 

it 

I 

[TAB] 

NEXT  FIELD, 

[RETURN]  TAKE 

ACTION,  [ PF3 ]  QUIT  | 

MATCH  PRO  TYP  PROSTYP 
ON  nomatCh  REJECT 
ON  MATCH  GOTO  HULLA1A 


B-230-3 


ENDCASE 
.  * 

DATA 
END 
.  * 

-RUN 

-GOTO  HULL1 
.  * 

-HULL1B 
.  * 

MODIFY  FILE  PROPULSR 
CRTFORM  LINE  1 


ADD  SYS  DESCRIPTION  ( PRODESC  SEGMENT) 


"1 

<77 

" 

”1 

TYPE 

"1 

"1 

SUBTYPE 
<77  |  " 

"I 

<77 

" 

w 

"1 

<77 

"1 

<77 

If 

"1 

<77 

" 

SB 

"1 

<77 

N 

Cv 

" 

<77 

n 

S; 

"I 

<77 

" 

"1 

<77 

n 

"1 

<77 

n 

1 

"1 

<77 

n 

k  - 

n  __ 

"1 

\V 

n  __ 

<16 

<16 


<  PRO_TYP 

<  PRO  STYP 


<77 

<77 


(TAB)  NEXT  FIELD,  (RETURN)  TAKE  ACTION,  [ PF3 )  QUIT 


MATCH  PROTYP  PROSTYP 
ON  NOMATCH  REJECT 
ON  MATCH  GOTO  HULLA1B 

.* 

CASE  HULLA1B 

.* 

CRTFORM  LINE  1 


ADD  DESCRIPTION  (PRODESC  SEGMENT) 


I  " 


MFR/DESIGNER 
MFR  NUMBER 


<16  <  MFR_ID  <77 

<16  <  MFR  NO  <77 


TRAIN  (Y/N)  <12  < 
VAR  PTCH  (Y/N) <12  < 
FULL  REV  ( Y/N ) <12  < 
TUN  DRV  (Y/N)  <12  < 
<77  I  " 


<77 
<4  < 
<4  < 
<4  < 
<77 


PR_COMl  <77 
PR_COM2  <77 
PR  COM3  <77 


PRO_TRAIN  <38  MATERIAL  <50  <PRO_MAT  <77 
PRO_VAR_PTCH<  38  CNT  PTCH  (Y/NX50  <PRO_CNT  PTCH<77 
PRO_FULL_REV<  38  DUCTED  (Y/N)  <50  <PRO_DUCTED  <77 
PRO_TUNNEL  <77 

COMMENTS  <77 


(TAB)  NEXT  FIELD,  [RETURN)  TAKE  ACTION,  ( PF3 ]  QUIT 


V 


MATCH  MFR  ID  MFR  NO 
ON  NOMATCH  REJECT 
ON  MATCH  CONTINUE  TO  PRO  TRAIN 
ON  MATCH  REJECT 


B-230-4 


VW.V.V'-  'TV 


•:r>  uwn  ■ 


ON  NOMATCH  INCLUDE 

.  * 

ENOCASE 

.* 

DATA 

END 

* 

RUN 

GOTO  HULLl 

* 

HULL1C 

* 

MODIFY  FILE  PROPULSR 
CRTFORM  LINE  1 


ADD  SYS  SPECIFICATIONS  (PROSPEC  SEGMENT) 


<77  |  " 
TYPE 
SUBTYPE 
<77  I  " 


<  PRO_TYP 

<  PRO  STYP 


(TAB]  NEXT  FIELD,  (RETURN]  TAKE  ACTION,  [ PF3  ]  QUIT 


MATCH  PRO  TYP  PROSTYP 
ON  NOMATfH  REJECT 
ON  MATCH  GOTO  HULLAlC 

.* 

CASE  HULLAlC 
CRTFORM  LINE  1 


ADD  SYS  SPECIFICATIONS  (PROSPEC  SEGMENT) 


MFR/DES 
MFR  NO 


<20  <MFR_ID  <77  | 
<20  <MFR  NO  <77  j 


"|  PROP  DIA  <20  <PRO_DIA  <38  WEIGHT  <60  <PRO_WEIGHT 

"|  MAX  PITCH  <20  <PRO_PTCH_MX  <38  NO  BLADES  <60  <PRO_NO_BLDS 

H|  AREA  RATIO  <20  <PRO  AREA  RAT  <77 

"|  <77  I" 

"j  COMMENTS  <77  |" 

"|  <4  <SPEC_COMl  <77  | " 

"|  <4  <SPEC_COM2  <77  |" 

" |  <4  < SPEC  COM3  <77  | " 

"|  <77  |" 

"|  <77  I" 

"|  <77  |" 

[TAB]  NEXT  FIELD,  (RETURN]  TAKE  ACTION,  ( PF3 ]  QUIT 


MATCH  MFR  ID  MFR  NO 
ON  NOMATCH  REJECT 


2 

41 


: 


B-230-5 


» 


ON  MATCH  CONTINUE  TO  PRO_DIA 
ON  MATCH  REJECT 
ON  NOMATCH  INCLUDE 

.* 

ENDCASE 
.  * 

DATA 
END 
.  * 

-RUN 

-GOTO  HULL1 
.  * 

-HULL1D 
.  * 

MODIFY  FILE  PROPULSR 
CRTFORM  LINE  1 


ADD  SHAFT  SYSTEM  DATA  ( SHFTSPEC  SEGMENT) 


<77  |" 
TYPE 
SUBTYPE 
<77  |" 
<77  I" 
<77  )" 
<77  |" 
<77  |  " 
<77  |" 
<77  |" 
<77  |  " 
<77  |" 
<77  |" 
<77  I" 


<  PRO_TYP 

<  PRO  STYP 


[TAB]  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  [ PF3 ]  QUIT 


MATCH  PROTYP  PROSTYP 
ON  NOMATCH  REJECT 
ON  MATCH  GOTO  HULLA1D 

-  * 

CASE  HULLA1D 
.  * 

CRTFORM  LINE  1 


"  1 
II 

ADD  SHAFT  SYSTEM 

DATA  (SHFTSPEC  SEGMENT)  | 

"1 

MFR/DESIGNER 

<20 

< 

MFR  ID 

<77 

N 

"1 

II 

MFRNUMBER 

<20 

< 

MFR_NO 

<77 

It 

"1 

ANGLE 

<20 

< 

SH  ANGL 

<77 

It 

”  1 

MATERIAL 

<20 

< 

SH  MAT 

<77 

It 

"1 

OUTER  DIA 

<20 

< 

SH  OD 

<77 

n 

"  1 

INNER  DIA 

<20 

< 

SH  ID 

<77 

it 

"1 

MODULUS 

<20 

< 

SH  SMOD 

<77 

it 

"1 

<77  |  " 

"1 

COMMENTS  <77 

1" 

"1 

<77  |" 

"1 

<4  <  SH  COM1 

<77 

1" 

"1 

<4  <  SH  COM2 

<77 

|  " 

"1 

<4  <  SH  COM3 

<77 

1  " 

II  — 

„ 

[TAB]  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  [ PF3 ]  QUIT 


B-230-6 


I 


MATCH  MFR_ID  MFR_NO 
ON  NOMATCH  REJECT 
ON  MATCH  CONTINUE  TO  SH  ANGL 
ON  MATCH  REJECT 
ON  NOMATCH  INCLUDE 


ENDCASE 

* 

DATA 

END 


-RUN 

-GOTO  HULL1 
_  * 

-AMV1 
_  * 

MODIFY  FILE  PROPULSR 
CRTFORM  LINE  1 

M 


ADD  AMV  REFERENCES  (AMVREF  SEGMENT) 


1  <77 

r 

|  SYS 

TYPE 

<16 

<  PRO  TYP 

<77  |  " 

|  SYS 

SUBTYPE 

<16 

<  PRO  STYP 

<77  |” 

1  <77 

r 

1  <77 

i " 

1  <77 

i " 

1  <77 

i " 

1  <77 

i " 

|  <77 

i" 

|  <77 

i " 

1  <77 

i " 

1  <77 

r 

1  <77 

r 

1  <77 

i " 

1 

( TAB  J 

NEXT  FIELD, 

(RETURN)  TAKE  ACTION,  ( PF3 ]  QUIT  | 

MATCH  PROTYP  PROSTYP 
ON  NOMATCH  REJECT 
ON  MATCH  GOTO  AMVAl 


CASE  AMVAl 
_  * 


CRTFORM  LINE  1 

"I  ADD  AMV  REFERENCES  (AMVREF  SEGMENT) 


" _ _ _ _ _ _ _ _ _ _ _ _ _ _ _  * 


|  <77 

" 

|  SHIP 

ID 

<16 

< 

SHIP  ID 

<77  |  " 

1  <77 

" 

|  SHIP 

NAME 

<16 

< 

SHIP  NAME 

<77  )" 

|  SHIP 

FLAG 

<16 

< 

SHIP  FLAG 

<77  |" 

|  <77 

" 

|  <77 

" 

|  <77 

" 

1  <77 

" 

1  <77 

" 

1  <77 

" 

1  <77 

* 

1  <77 

" 

1  <77 

" 

11 


Ji*  a*  ji*  Ji1 


[TAB]  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  [  PF3  ]  QUIT 


MATCH  REF_NUM 
ON  MATCH  REJECT 
ON  NOMATCH  INCLUDE 
GOTO  LITA1 

.  * 

ENDCASE 
.  * 

DATA 

END 

-RUN 

-GOTO  ONE 


yvyvyir.' 


ON  MATCH  CRTFORM 


<77 

<  T . PR0_C0M1 >  <77 
<T.PR0_C0M2>  <77 
<T.PRO_COM3>  <77 
<77  |" 

<77  |  " 

<77  I" 


COMMENTS  <77 


(TAB]  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  [ PF3 ]  QUIT 


ON  MATCH  UPDATE  PRO_COMl  PRO_COM2  PRO_COM3 
DATA 
END 
.  * 

-RUN 

-GOTO  TWO 
.  * 

-HULL2 
.  * 

-CRTFORM  LINE  1 


-"] 

»» 

SYS  DESIGN  CHG 

OPTIONS  FOR  PROPULSR  FILE  -  OEB230 

1 

-”l 

1 

-"1 
«  1 

OPTIONS  LIST 

1 

1 

I 

1 

-”l 

(U 

CHG  SYS  DESIGN 

1 

1 

-”l 

(2) 

CHG  SYS  DESCRIPTION 

1 

1 

(3) 

CHG  SYS  SPECIFICATIONS 

I 

-”l 

[4] 

CHG  DRIVE  SPECS 

1 

-”l 

[5] 

FM  DIRECTORY 

1 

1 

OPTION  — >  <&OPTION 


[TAB]  NEXT  FIELD,  (RETURN]  TAKE  ACTION,  [ PF3 )  QUIT 


-IF  &OPTION  EQ  1  GOTO  HULL2A ; 
-IF  SOPTION  EQ  2  GOTO  HULL2B; 
-IF  &OPTION  EQ  3  GOTO  HULL2C ; 
-IF  ^OPTION  EQ  4  GOTO  HULL2D; 
-IF  iOPTION  EQ  5  GOTO  TWO; 
-GOTO  HULL2 
.* 

-HULL2A 
.  * 

MODIFY  FILE  PROPULSR 
CRTFORM  LINE  1 


CHG  SYS  DESIGN  ( PROSYS  SEGMENT) 


<77  |  " 
TYPE 
SUBTYPE 
<77  I" 
<77  |" 
<77  |  • 


<16  <  PRO_TYP  <77 
<16  <  PRO  STYP  <77 


B-230-10 


s 

k 


v.% rjyjriUW  ‘.TIT ■>  «J  ».»  •;V7.VV,  y.’yji 


r-wwv:^-,r.vLVj\ii^v  viflArjrr.A  ,vtv  '.m1.  v."  VV  v  t » 


<77 

<77 

<77 

<77 

<77 

<77 

<77 

<77 


(Vi 


,w 

,V. 

\SL 


3 


£ 


[TAB]  NEXT  FIELD,  (RETURN)  TAKE  ACTION,  ( PF 3 )  QUIT 


MATCH  PRO_TYP  PRO_STYP 
ON  NOMATCH  REJECT 
ON  MATCH  GOTO  HULLA2A 

-  * 

CASE  HULLA2A 
.  * 

CRTFORM  LINE  1 


"I 


CHG  DESIGN  (PROSYS  SEGMENT) 


<77 


<16  < 
<16  < 


MFR  ID 
MFR- NO 


MFR/DES IGNER 
MFR  NUMBER 

<  77~  |  " 

<30  (  PRESS  RETURN  )  <77  | 
MATCH  MFRID  MFR  NO 
ON  NOMATCH  REJECT? 

ON  MATCH  CRTFORM 
I  <77  I" 

I 

I  <77  |" 

|  <4  <T.MFR_COMl>  <77 
|  <4  <T.MFR_COM2>  <77  |" 

|  <4  <T . MFR  COM3>  <77  |  " 

i  <77  r  “ 

I  <77  I" 

I  <77  I" 


<77  |  M 
<77  I" 


COMMENTS  <77  |" 


'I  (TAB)  NEXT  FIELD,  (RETURN)  TAKE  ACTION,  (PF3)  QUIT 

ON  MATCH  UPDATE  MFR  COM1  MFR  COM2  MFR  COM3 


ENDCASE 
.  * 

DATA 

END 


& 

1 

1 « 

1 

_  * 

-RUN 

-GOTO  HULL2 

•  * 

-HULL2B 
__  * 

MODIFY  FILE  PROPULSR 
CRTFORM  LINE  1 

n 

ft 

"1 

N 

CHG 

f: 

"|  <77  1" 

£ 

"  |  TYPE 

<16  < 

k 

" |  SUBTYPE 

<16  < 

"|  <77  p 

M|  <77  p 

CHG  SYS  DESCRIPTION  ( PRODESC  SEGMENT) 


PROJTYP 
PRO  STYP 


<77 

<77 


B-230-11 


&maqJ 


[TAB]  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  [  PF3 ]  QUIT 


"1 

<77 

1  " 

"1 

<77 

1  " 

"1 

<77 

1  " 

"  1 

<77 

1  " 

"1 

<77 

1  " 

"  1 

<77 

1  ” 

"  1 

<77 

1  " 

tl 


MATCH  PRO  TYP  PRO_STYP 
ON  NOMATCH  REJECT 
ON  MATCH  GOTO  HULLA2B 

* 

CASE  HULLA2B 
* 

CRTFORM  LINE  1 


CHG  DESCRIPTION  ( PRODESC  SEGMENT) 


"|  MFR/DESIGNER  <16  <  MFR_ID  <77  |" 

"|  MFRNUMBER  <16  <  MFR  NO  <77  |" 

"|  <30  (  PRESS  RETURN  )  <77  T" 

** 


MATCH  MFR_ID  MFR  NO 
ON  NOMATCH  REJECT 
ON  MATCH  CONTINUE  TO  PROTRAIN 
ON  NOMATCH  REJECT 
ON  MATCH  CRTFORM 

”|  TRAIN  (Y/N)  <12<T.PRO_TRAIN>  <38  MATERIAL  < 50<T . PRO_MAT>  <77  | 

"|  VAR  PTCH  ( Y/N)<12<T.PRO_VAR_PTCH><38  CNT  PTCH  ( Y/N ) <  50<T . PRO_CNT_PTCH>  <77  | 
"|  FULL  REV  ( Y/N)<12<T.PRO_FULL  REV>  <  38  DUCTED  (Y/N)  < 50<T . PRO_DUCTED>  <77  | 

"|  TUN  DRV  (Y/N)  <12<T.PRO  TUNNEL)  <77  |" 

”i  <77  r 

"I  COMMENTS  <77 


"|  <77  |" 


"|  <4  <T.PR_COMl>  <77  |" 
"|  <4  <T.PR_COM2>  <77  j " 
" |  <4  <T. PR  COM3>  <77  |  " 


l» 


"|  [TAB]  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  [ P  F  3 ]  QUIT 

If 


1 


ON  MATCH  UPDATE  PROTRAIN  PRO_MAT  PRO_VAR  PTCH  PRO_CNT  PTCH  PRO  FULLREV 
ON  MATCH  UPDATE  PRO_DUCTED  PRO_TUNNEL  PI^COMl  PR^_COMZ  PR^_COMl 


ENDCASE 
_  * 


DATA 

END 


-RUN 

-GOTO  HULL2 
_  * 

-HULL2C 

_  * 

MODIFY  FILE  PROPULSR 
CRTFORM  LINE  1 


"|  CHG  SPECIFICATIONS  ( PROSPEC  SEGMENT) 

"|  <77  |" 


TYPE 
SUBTYPE 
<77  I  " 


<16  <  PRO_TYP  <77 

<16  <  PRO  STYP  <77  j 


[TAB]  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  [  PF3 ]  QUIT 


MATCH  PRO_TYP  PRO_STYP 
ON  NOMATCH  REJECT 
ON  MATCH  GOTO  HULLA2C 

* 

CASE  HULLA2C 
* 

CRTFORM  LINE  1 


CHG  SPECIFICATIONS  ( PROSPEC  SEGMENT) 


|  MFR/DESIGNER 
|  MFR  NUMBER 


<16  <  MFR_ID 
<16  <  MFR  NO 


<30  (  PRESS  RETURN  )  <77 


MATCH  MFR_ID  MFR_NO 
ON  NOMATCH  REJECT 
ON  MATCH  CONTINUE  TO  PROHP 
ON  NOMATCH  REJECT 
ON  MATCH  CRTFORM 

”|  PROP  DIA  <20<T. PRO_DIA>  <38  WEIGHT  <60<T . PRO_WEIGHT>  <77 

”|  MAX  PITCH  <20<T. PRO_PTCH_MX>  <38  NO  BLADES<60<T. PRO_NO_BLDS>  <77 
"|  AREA  RATIO<  20<T .  PRO  AREA  RATX77  |" 

"|  <77  I" 

"|  COMMENTS  <77  | " 

"|  <4  <T.SPEC_COMl>  <77 
"|  <4  <T.SPEC_COM2>  <77  |" 

"|  <4  <T . SPEC  COM3>  <77  I  " 


[TAB]  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  [ P F 3 ]  QUIT 


CHG  SYSTEM  SHAFT  DATA  (SHFTSPEC  SEGMENT) 


TYPE 

<16  < 

PRO  TYP 

SUBTYPE 

<16  < 

PRO_STYP 

<77  |  " 

<77  |  " 

<77  |" 

<77  |  " 

<77  |" 

<77  |  " 

<77  |" 

<77  |" 

<77  |" 

<77  |  " 

<77  |" 

[TAB]  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  [ PF3 ]  QUIT 


MATCH  PROTYP  PRO_STYP 
ON  NOMATCH  REJECT 
ON  MATCH  GOTO  HULLA2D 

* 

CASE  HULLA2D 


CRTFORM  LINE  1 


CHG  SYSTEM  SHAFT  DATA  (SHFTSPEC  SEGMENT) 


MFR/DESIGNER 
MFR  NUMBER 


<20  <  MFR_ID 
<20  <  MFR  NO 


<77  |" 

<33  (PRESS  RETURN) 


MATCH  MFR  ID  MFR  NO 

ON  NOMATCH  REJECT 

ON  MATCH  CONTINUE 

TO 

SH  ANGL 

ON  NOMATCH  REJECT 

ON  MATCH  CRTFORM 

" |  ANGLE 

<20 

<T.  SH 

ANGL> 

<7 

’’  |  MATERIAL 

<20 

<T .  SH 

MAT> 

<7 

" |  OUTER  DIA 

<20 

<T .  SH 

OD> 

<7 

" |  INNER  DIA 

<20 

<T .  SH 

ID> 

<7 

" |  MODULUS 

<20 

<T .  SH 

“SMOD> 

<7 

"|  <77  | " 

"  1 

COMMENTS 

<77 

"|  <77 

" |  <4  < T . SH  COMl > 

<77 

r 

” |  <4  <T . SH  COM2 > 

<77 

i " 

" |  <4  <T . SH  COM3> 

<77 

i " 

[TAB]  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  [ PF 3 ]  QUIT 


ON  MATCH  UPDATE  SH_ANGL  SH_MAT  SH_OD  SH_ID  SH_SMOD  SH_COMl  SH_COM2 
ON  MATCH  UPDATE  SH  COM3 


ENDCASE 

* 

DATA 

END 

* 


-RUN 

GOTO  HULL2 


MODIFY  FILE  PROPULSR 
CRTFORM  LINE  1 


CHG  AMV  REFERENCES  ( AMVREF  SEGMENT) 


TYPE 

<16  < 

PRO 

TYP 

<77 

SUBTYPE 

<16  < 

PRO_ 

STYP 

<77 

<77  |  " 

<77  I" 

<77  1" 

<77  1” 

<77  |" 

<77 

<77  |” 

<77 

[  TAB  1  NEXT  FIELD,  (RETURN]  TAKE  ACTION,  [ PF3 ]  QUIT 


MATCH  PRO_TYP  PRO_STYP 
ON  NOMATCH  REJECT 
ON  MATCH  GOTO  AMV2 

* 

CASE  AMV 2 
* 

CRTFORM  LINE  1 


CHG  AMV  REFERENCES  (AMVREF  SEGMENT) 


SHIP  ID  <16  <  SHIP_ID  <77 
<77  I" 

<33  (  PRESS  RETURN  )  <77 


MATCH  SHIP  ID 

ON  NOMATCH  REJECT 

ON  MATCH  CRTFORM 

"|  <77 

It 

"j  SHIP 

NAME  <16  <T . SHIP 

NAME> 

<77 

" j  SHIP 

FLAG  <16  <T. SHIP 

_FLAG> 

<77 

<77 

" 

"|  <77 

" 

"|  <77 

" 

"|  <77 

" 

"|  <77 

" 

"|  <77 

" 

[TAB]  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  [ PF3 ]  QUIT 


ON  MATCH  UPDATE  SHIP_NAME  SHI P_FLAG 
GOTO  AMV 2 
* 

ENDCASE 

* 

DATA 

END 

* 

RUN 
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-GOTO  TWO 
.  * 

.  * 

-LIT2 
.  * 

MODIFY  FILE  PROPULSR 
CRTFORM  LINE  1 


CHG  LITERATURE  REFERENCE  (LITREF  SEGMENT) 


TYPE  <16  <  PRO_TYP  <77 
SUBTYPE  <16  <  PRO_STYP  <77 
<77  I" 


[TAB]  NEXT  FIELD,  [RETURN)  TAKE  ACTION,  [ PF3 ]  QUIT 


MATCH  PRO_TYP  PRO_STYP 
ON  NOMATCH  REJECT 
ON  MATCH  GOTO  LITA2 

.* 

CASE  LITA2 
.  * 

CRTFORM  LINE  1 


"1 

M 

CHG 

LITERATURE  REFERENCE  (LITREF  SEGMENT)  | 

"1 

<77 

1” 

"1 

REF 

NUMBER  <17  <  REF 

NUM  <77 

"1 

<77 

1" 

”1 

<33 

(  PRESS  RETURN  ) 

<77  |" 

MATCH  REF_NUM 
ON  NOMATCH  REJECT 
ON  MATCH  CRTFORM 
"|  <77  |" 

"I 

"|  <77  |" 

"j  <8  <T.REF_DESC>  <77 
"|  <77 
"|  <77  |" 

”|  <77  |" 

"|  <77  |" 

”|  <77  |" 


REFERENCE  DESCRIPTION 


[TAB]  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  [ PF3  ]  QUIT 


ON  MATCH  UPDATE  REF_DESC 
GOTO  LITA2 
.* 

ENDCASE 

.* 

DATA 
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END 
_  * 

-RUN 

-GOTO  TWO 

_********************************************************•******•**•••*••*•**»•• 

-THREE 

.A****************************************************************************** 

-CRTFORM  LINE  1 

_  n _ _ _  k 


DELETE  SYSTEMS  OPTIONS  FOR  PROPULSR  FILE  -  OEB230 


1 

! 

1 

| 

OPTIONS  LIST 

1  ", 
i  " 

i  " 

1 

1 

(1 

)  DEL  MAIN  SEGMENT 

I 

1  " 

1 

(2 

]  DEL  DESIGN  SEGMENT 

1  •* 

I 

1 

[3 

]  DEL  AMV  REFERENCES 

1  " 

1 

(4 

1  DEL  LITERATURE  REFS 

I" 

1 

1 

[5 

]  FM  DIRECTORY 

r 

1 

1 

OPTION  — >  < tOPTION 

i 

1  <77  |" 

i 

1  <77  j” 

i* 

1 

[TAB]  NEXT  FIELD, 

[RETURN]  TAKE  ACTION,  [ PF3  J  QUIT 

i " 

m 

_  * 


-IF 

&OPTION 

EQ 

1 

GOTO 

MAIN3; 

-IF 

&OPTION 

EQ 

2 

GOTO 

HULL 3; 

-IF 

SOPTION 

EQ 

3 

GOTO 

AMV  3; 

-IF 

&OPTION 

EQ 

4 

GOTO 

LIT3; 

-IF  SOPTION 
-GOTO  THREE 

EQ 

5 

GOTO 

TOP; 

_  * 


-MAIN3 
-  * 

MODIFY  FILE  PROPULSR 
CRTFORM  LINE  1 


M|  DELETE  MAIN  SYSTEM  ( PROTYP  SEGMENT)  |  " 

M  _ _  _  II 


"i  <77  r 

"I  TYPE  <10  <  PROJTYP  <77  |" 
"|  SUBTYPE  <10  <  PRO  STYP  <77  |" 
"|  <77 

”|  <33  (  PRESS  RETURN  )  <77  |" 


MATCH  PROJTYP  PROSTYP 
ON  NOMATCH  REJECT 
ON  MATCH  CRTFORM 
"|  <77  I" 

"I 

"|  <4  <D.PRO_COMl  <77  |" 
"|  <4  <D.PRO_COM2  <77  j" 
" j  <4  <D. PRO  COM3  <77  | " 
"|  <77  |" 

"|  <77  |" 

”|  <77  I" 


COMMENTS  <77  | 


K  V  V  . 


<<| 


ON  NOMATCH  REJECT 
ON  MATCH  GOTO  HULLA3A 

.  * 

CASE  HULLA3A 
.  * 

CRTFORM  LINE  1 


DEL  DESIGN  ( PROSYS  SEGMENT) 


"|  <77  I" 

"j  MFR/DESIGNER  <16  < 
"|  MFR_NUMBER  <16  < 

"i  <77  |" 

MATCH  MFR_ID  MFR_NO 
ON  NOMATCH  REJECT 
ON  MATCH  CRTFORM 

It  | 

"|  <4  <D.MFR_COMl  <77  |" 
"|  <4  <D.MFR_COM2  <77  |" 
"j  <4  <D . MFR  COM3  <77  | " 
"i  <77  r 

"|  <77  I" 

"|  <77  |” 

"|  <77  |" 


MFR_ID 
MFR  NO 


<77  |" 

<32  (PRESS  RETURN) 


COMMENTS  <77 


"|  [TAB]  NEXT  FIELD,  (RETURN]  TAKE  ACTION,  [PF3]  QUIT 

M— —  —  —  —  —  —  —  —  —  —  —  —  —  -  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  _  —  —  — — 

ON  MATCH  DELETE 
GOTO  HULLA3A 

_  * 

ENDCASE 

_* 

DATA 
END 
_  * 

-RUN 

-GOTO  HULL3 

_  * 

-HULL3B 
—  * 

MODIFY  FILE  PROPULSR 
CRTFORM  LINE  1 

N  _ 

"I  DEL  SYS  DESCRIPTION  ( PRODESC  SEGMENT) 


"|  <77  I" 

" |  TYPE 
" |  SUBTYPE 
<77 

"|  <77  I" 
"|  <77  |" 
"|  <77  |" 
"|  <77  |" 
"|  <77  |" 
"|  <77  I" 
"|  <77  | " 
"|  <77  |" 
"|  <77 
"|  <77  |" 


PRO  TYP 
PRO~STYP 


(TAB)  NEXT  FIELD,  (RETURN]  TAKE  ACTION,  ( PF3 )  QUIT 


j  WJ»  V*  ’  *  •  * 
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V.V.Y 


MATCH  PRO_TYP  PRO_STYP 
ON  NOMATCH  REJECT 
ON  MATCH  GOTO  HULLA3B 

.  * 

CASE  HULLA3B 
_  * 

CRTFORM  LINE  1 


DEL  DESCRIPTION  ( PRODESC  SEGMENT) 


"|  MFR/DES IGNER  <16  <  MFR_ID 
")  MFR_NUMBER  <16  <  MFR  NO 
"]  <30  (  PRESS  RETURN  )  <77  J" 


MATCH  MFR_ID  MFR  NO 
ON  NOMATCH  REJECT 
ON  MATCH  CONTINUE  TO  PRO_TRAIN 
ON  NOMATCH  REJECT 
ON  MATCH  CRTFORM 

TRAIN  (Y/N)  < 12<D . PRO_TRAIN>  <38  MATERIAL  < 50<D . PRO_MAT>  <77 

"I  VAR  PTCH  ( Y/N)<12<D.PRO_VAR_PTCH><38  C NT  PTCH  ( Y/N)<50<D. PRO_CNT  PTCHX 77 
"j  FULL  REV  ( Y/N)<12<D.PRO_FULL_REV><38  DUCTED  (Y/N)  < 50<D . PRO_DUCfED>  <77 

" |  TUN  DRV  (Y/N)  < 12 <D . PRO_TUNNEL>  <77  |" 

"t  <77  r 

"|  COMMENTS  <77  \” 

"|  <77  I" 

"|  <4  <D.PR_COMl>  <77  |" 

"j  <4  <D.PR_COM2>  <77  |" 

"|  <4  <D.PR_COM3>  <77  |" 

M  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  w  —  —  —  — 

"|  [TAB]  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  [ PF3  ]  QUIT 


ON  MATCH  DELETE 

.* 

ENDCASE 

.* 

DATA 
END 
.  * 

-RUN 

-GOTO  HULL 3 
.  * 

-HULL3C 

.* 

MODIFY  FILE  PROPULSR 
CRTFORM  LINE  1 


DEL  SYS  SPECIFICATIONS  ( PROSPEC  SEGMENT) 


<77  I" 
TYPE 
SUBTYPE 
<77  I  " 


<16  <  PRO_TYP  <77 
<16  <  PRO  STYP  <77 


"|  <77 
"|  <77 
"|  <77 
<77 
"|  <77 
"  |  <77 
"|  <77 
"|  <77 
"  |  <77 


B-230-20 


rw 


GW8 


TAB]  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  [ PF  3  }  QUIT 


MATCH  PRO_TYP  PRO_STYP 
ON  NOMATCH  REJECT 
ON  MATCH  GOTO  HULLA3C 

.  * 

CASE  HULLA3C 
.  * 

CRTFORM  LINE  1 


CHG  SPECIFICATIONS  ( PROSPEC  SEGMENT) 


|  MFR/DES IGNER 
|  MFR  NUMBER 


<16  <  MFR_ID 
<16  <  MFR  NO 


<30  (  PRESS  RETURN  )  <77 


MATCH  MFR_ID  MFR_NO 
ON  NOMATCH  REJECT 
ON  MATCH  CONTINUE  TO  PRO_DIA 
ON  NOMATCH  REJECT 
ON  MATCH  CRTFORM 

"|  PROP  DIA  <20 <D. PRO_DIA>  <38  WEIGHT  <60 <D . PRO_WEIGHT>  <77 

"j  MAX  PITCH  < 20<D . PRO_PTCH_MX>  <38  NO  BLADES<60<D. PRO~NO_BLDS>  <77 
AREA  RATIO<20<D.PRO_AREA_RAT><77  j “ 

"|  <77  |H 

"I  COMMENTS  <77  I" 


<4  <D.SPEC_COMl>  <77 
<4  <D.SPEC_COM2>  <77 
<4  <D.SPEC_COM3>  <77 

<77  r 

<77  |  " 

<77  I  " 


(TAB)  NEXT  FIELD,  (RETURN)  TAKE  ACTION,  ( PF3 ]  QUIT 


MATCH  PRO_TYP  PRO_STYP 
ON  NOMATCH  REJECT 
ON  MATCH  GOTO  HULLA3D 

.* 

CASE  HULLA3D 
.  a 

CRTFORM  LINE  1 


DEL  SYSTEM  SHAFT  DATA  (SHFTSPEC  SEGMENT) 


<20 

<20 


"|  <77 

"|  MFR/DESIGNER 
" j  MFR_NUMBER 
MATCH  MFR_ID  MFR_NO 
ON  NOMATCH  REJECT 
ON  MATCH  CONTINUE  TO  SH_ANGL 
ON  NOMATCH  REJECT 
ON  MATCH  CRTFORM 
" |  ANGLE 
" |  MATERIAL 
” |  OUTER  DIA 
" |  INNER  DIA 
H |  MODULUS 
"I  <77  I" 


MFR 

MFR' 


ID 

NO 


<77 

<33 


(PRESS  RETURN)  <77 


<20 

<D.SH 

ANGL> 

<77 

1" 

<20 

<D.SH‘ 

"MAT> 

<77 

1  " 

<20 

<D.  SH' 

*OD> 

<77 

1  " 

<20 

<d.sh' 

”lD> 

<77 

1  " 

<20 

<d.sh‘ 

~SMOD> 

<77 

1  " 

COMMENTS 

<77  1 

N 

I  <77  I" 

|  <4  <D.SH_COMl>  <77 
|  <4  <D.SH_COM2>  <77 
I  <4  <D.SH  COM3>  <77 


I 


(TAB)  NEXT  FIELD,  (RETURN)  TAKE  ACTION,  ( PF3 ]  QUIT 


ON  MATCH  DELETE 

_  A 

ENDCASE 

_  A 

DATA 

END 

_  A 

-RUN 

-GOTO  HULL3 

-A 


It 


tt 


-AMV3 

-A 

MODI TY  FILE  PROPULSR 
CRTFORM  LINE  1 


DEL  AMV  REFERENCES  (AMVREF  SEGMENT) 


"|  <77  |" 

"|  TYPE  <16  <  PRO_TYP  <77 

"j  SUBTYPE  <16  <  PRO_STYP  <77  |" 
"|  <77  |" 

"|  <77  )" 

"|  <77  (" 
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"|  (TAB]  NEXT  FIELD,  (RETURN]  TAKE  ACTION,  { PF 3  ]  QUIT 

tl  _ _ _ _ _ _ _ _ _ _ __________ _ _  _  _ _ ______ _ ___________ _ _________  _ 

MATCH  PROTYP  PRO_STYP 
ON  NOMATCH  REJECT 
ON  MATCH  GOTO  AMVA3 

.  * 

CASE  AMVA3 
.  * 

CRTFORM  LINE  1 

ii _ _ _ _ _ _ _ _ _ _ _ _ _ _ _  _ _ __ _ _ _ 

"|  DEL  AMV  REFERENCES  ( AMVREF  SEGMENT) 

H _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ 

"i  <77  r 

"|  SHIP  ID  <16  <  SHIP  ID  <77  |" 

"|  <77  |" 

"|  <33  (  PRESS  RETURN  )  <77  |" 

MATCH  SHIP_ID 
ON  NOMATCH  REJECT 
ON  MATCH  CRTFORM 

"|  <77 

"|  SHI P_NAME  <16  <  D. SHIP_NAME  <77  |" 

"|  SHIP  FLAG  <16  <  D . SHIP  FLAG  <77  |" 

" |  <77  T" 

"|  <77  I" 

"|  <77  |" 

"f  <77  I" 

"|  <77  |" 

"|  <77  I" 

"|  [TAB]  NEXT  FIELD,  (RETURN)  TAKE  ACTION,  [ PF3  ]  QUIT 


ON  MATCH  DELETE 
GOTO  AMVA3 
.  * 

ENDCASE 
.  * 

DATA 
END 
.  * 

-RUN 

-GOTO  THREE 


MODIFY  FILE  PROPULSR 
CRTFORM  LINE  1 


DEL  LITERATURE  REFERENCE  ( LITREF  SEGMENT) 


<77  I" 

TYPE  <16  <  PRO_TYP  <77  | 
SUBTYPE  <16  <  PRO  STYP  <77  | 
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w:w, 


'o' 


[ TAB  1  NEXT  FIELD,  (RETURN)  TAKE  ACTION,  [PF3  1  QUIT 


"|  <77  | " 

”|  <77  ( " 
"|  <77 
"|  <77  |H 

"i  <77  r 

"|  <77  I " 
"|  <77  |" 
”|  <77 
"I  <77  r 
"  i  <77  r 
"|  <77  r 


MATCH  PRO  TYP  PRO_STYP 
ON  NOMATCH  REJECT 
ON  MATCH  GOTO  LITA3 

* 

CASE  LITA3 
* 

CRTFORM  LINE  1 


II  _  _  _________  __  ________  _  _  _  If 


”1 

H 

DEL 

LITERATURE 

REFERENCE  (LITREF 

SEGMENT)  | 

"I  <77 

1" 

n  |  REF 

NUMBER  <17  <  REF  NUM  <77  1" 

"  |  <77 

1" 

"|  <33 

(  PRESS  RETURN 

)  <77  |" 

MATCH 

REF  NUM 

on  nomatCh  REJECT 

ON  MATCH  CRTFORM 

"|  <77 

1  " 

M  1 

REFERENCE  DESCRIPTION 

<77  |" 

"  |  <77 

1  " 

"|  <8 

<D . REF  DESC  <77 

r 

"|  <77 

1  " 

"|  <77 

1  " 

<77 

1  " 

"  |  <77 

1  " 

"|  <77 

W 

1  " 

"1 

n 

(  TAB  J 

NEXT  FIELD, 

(RETURN)  TAKE  ACTION,  ( PF 3 )  QUIT  1 

ON  MATCH  DELETE 
GOTO  LITA3 


ENDCASE 

-* 

DATA 
END 
-  * 

-RUN 

-GOTO  THREE 


-RUN 

-GOTO  TOP 
-  * 

-FOUR 

EX  OEB200 
END 
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-  * 

_  *  _ _  __ _ 

FILE  MAINTENANCE  ROUTINE  FOR  WGTHANDL  FILE  -  OEB240 

Hr 

-•DESIGNED 

FOR 

:  USCG  R(D  CENTER,  OCEAN  ENGINEERING  BRANCH 

It 

-•DESIGNED 

BY 

:  M.  J.  STEVENS  { VTC ) 

* 

-•DATE  LAST 

REV 

:  4/16/87 

* 

-  * 

-TOP 

-DEFAULTS  &OPTION-O 

-CRTFORM  LINE  1 

It 

it 

-"1 

It 

FILE  MAINTENANCE  ROUTINES  FOR  WGTHANDL  FILE  -  OEB240 

1  " 

it 

1 

-"1 

-"1 
__  M  I 

MAINTENANCE  OPTIONS  LIST 

1  " 

1  * 

1  " 

1 

-"1 

[1)  ADD  WT  HANDLING  SYS 

1 

t  " 

-"1 

[2]  CHG  WT  HANDLING  SYS 

1  " 

-”l 

[3]  DEL  WT  HANDLING  SYS 

1  " 

-"1 

(4)  EXIT  WGTHANDL  FILE 

1  " 

-  I 

OPTION  — >  < (OPTION 

1 

n  | 

-"i  <77  r 

1 

-”|  <77  |" 

-"|  <77  |" 

It 

it 

-"1 

It 

(TAB)  NEXT  FIELD,  (RETURN)  TAKE  ACTION,  [PF3J  QUIT 

1" 

it 

-  * 

-IF  &OPTION 

EQ 

1 

GOTO  ONE; 

-IF  (OPTION 

EQ 

2 

GOTO  TWO; 

-IF  (OPTION 

EQ 

3 

GOTO  THREE; 

-IF  (OPTION 

EQ 

4 

GOTO  FOUR; 

-GOTO  TOP 

-ONE 
_  * 

-CRTFORM  LINE  1 


-"1 

It 

ADD  SYSTEM  OPTIONS  FOR  WGTHANDL  FILE  -  OEB240 

1  " 
It 

-"1 

-"1 

-"1 
»t  | 

OPTIONS  LIST 

1" 

1  " 

1  " 

-  1 

1 

Ill 

ADD  MAIN  SEGMENT 

1 

r 

-"  1 

(2) 

ADD  DESIGN  SEGMENT 

i " 

I 

[3] 

ADD  AMV  REFERENCE 

i" 

-"1 

[4] 

ADD  LITERATURE  REF 

i" 

-"1 

[5] 

FM  DIRECTORY 

i  * 

i  n 

1 

-"1 

OPTION  — >  <(OPTION 

l 

i  *• 

-  1 
-"1 

<77  l  " 

1 

-"  | 

<77  |  " 

1 

<77  1" 

t» 


[TAB)  NEXT  FIELD,  (RETURN)  TAKE  ACTION,  I PF3 )  QUIT 


S' 


-IF 

iOPTION 

EQ 

1 

GOTO 

MAINl ; 

-IF 

iOPTION 

EQ 

2 

GOTO 

HULLl ; 

-IF 

iOPTION 

EQ 

3 

GOTO 

AMV1 ; 

-IF 

iOPTION 

EQ 

4 

GOTO 

LITl ; 

-IF 

iOPTION 

EQ 

5 

GOTO 

TOP; 

-GOTO  ONE 


-MAINl 
.  * 

MODIFY  FILE  WGTHANDL 
CRTFORM  LINE  1 


1 

ADD  NEW  SYSTEM  (MAIN  SEGMENT) 

1  " 
M 

|  TYPE 

<10 

<  WT  TYP 

<77  |  " 

|  SUBTYPE 

<10 

<  WT'STYP 

<77  |  " 

_ _ l" 

n  | 

"  | 

<77  |  • 

”1 

<77 

"  1 

<  WT  COM1 

<77  |  " 

<  WT  COM2 

<77  j  " 

"1 

<  WT  COM3 

<77  |  " 

"  1 

<77  J" 

"  1 

<77  |  " 

"  1 

<77  |  " 

"I 

<77  |  " 

« 

ft 

<77  |" 

"1 
»» _ 

(TAB) 

COMMENTS:  <77  |" 


NEXT  FIELD,  (RETURN)  TAKE  ACTION,  ( PF3 ]  QUIT 


I  " 


MATCH  WTTYP  WT_STYP 
ON  MATCH  REJECT 
ON  NOMATCH  INCLUDE 
DATA 
END 
.  * 

-RUN 

-GOTO  ONE 

_  * 

-HULLl 
.  * 

-CRTFORM  LINE  1 


SYS  DESIGN  ADD  OPTIONS  FOR  WGTHANDL  FILE  -  OEB240 


1 

1 

1 

OPTIONS  LIST 

1" 

1" 

1" 

1  " 

1 

1 

(1) 

ADD  SYS  DESIGN 

1 

1  ” 

I 

[2] 

ADD  SYS  DESCRIPTION 

I  " 

1 

(3) 

ADD  SYS  SPECIFICATIONS 

1" 

1 

[4] 

FM  DIRECTORY 

1  " 

1  " 

1 

1 

OPTION  — >  <iOPTION 

l 

1  " 

1  <77  1" 

1 

1  <77  1" 

rt 

1 

(TAB)  NEXT  FIELD,  (RETURN)  TAKE  ACTION,  ( PF3 )  QUIT 

1  " 
n 

”  4 
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Ek 


-IF 

&OPTION 

EQ 

1 

GOTO 

HULL1A 

-IF 

&OPTION 

EQ 

2 

GOTO 

HULL1B 

-IF 

iOPTION 

EQ 

3 

GOTO 

HULL1C 

-IF 

SOPTION 

EQ 

4 

GOTO 

ONE; 

-GOTO  HULLl 


-HULL1A 
__  * 

MODIFY  FILE  WGTHANDL 
CRTFORM  LINE  1 

»t 


<77  r 

<77  |  " 

<4  <MFR_C0M1  <77  | 
<4  <MFR_COM2  <77  | 
<4  <MFR  COM3  <77  | 
<77  I"  ~ 


COMMENTS 


(TAB]  NEXT  FIELD,  (RETURN)  TAKE  ACTION,  ( PF3 ]  QUIT 


MATCH  MFR_ID  MFR  NO 
ON  MATCH  REJECT- 
ON  NOMATCH  INCLUDE 
GOTO  HULLA1A 

.  * 

ENDCASE 
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GOTO  HULLl 

* 

HULL1B 

• 

MODIFY  FILE  WGTHANDL 
CRTFORM  LINE  1 


ADD  SYS  DESCRIPTION  (WTDESC  SEGMENT) 


<77 

" 

TYPE 

<16 

<  WT  TYP 

SUBTYPE 

<16 

<  WT_STYP 

<77 

" 

<77 

tf 

<77 

II 

<77 

II 

<77 

" 

<77 

II 

<77 

II 

<77 

ft 

<77 

ft 

<77 

»l 

<77 

n 

[TAB]  NEXT  FIELD,  [RETURN)  TAKE  ACTION,  [ PF3  ]  QUIT 


MATCH  WTTYP  WTSTYP 
ON  NOMATCH  REJECT 
ON  MATCH  GOTO  HULLA1B 

* 

CASE  HULLA1B 
* 

CRTFORM  LINE  1 


ADD  DESCRIPTION  (WTDESC  SEGMENT) 


MFR/DESIGNER 
MFR  NUMBER 


<16  <  MFR_ID 
<16  <  MFR  NO 


PRI  FUNCTION  <12  <  WT_PRI_FN  <38  POWER  TYPE  <WT_PWR_TYP 

DYN  POS  (Y/N)  <12  <  WT  DYN  POS  <77 

<77 

<77  |  " 

<77  |  " 

COMMENTS  <77  |" 

<77  |  " 

<4  <  DESC_COMl  <77  |" 

<4  <  DESC_COM2  <77  j" 

<4  <  DESC  COM3  <77 
<77  |  " 


(TAB)  NEXT  FIELD,  (RETURN)  TAKE  ACTION,  [ PF3 )  QUIT 


MATCH  MFR_ID  MFR  NO 
ON  NOMATCH  REJECT 
ON  MATCH  CONTINUE  TO  WT_PRI  FN 
ON  MATCH  REJECT 
ON  NOMATCH  INCLUDE 


B-240-4 


•V*Vr  v  o 


w 


L* 

_  ★ 

ENDCASE 
-  * 

DATA 
END 
_  * 

-RUN 

-GOTO  HULL1 
_  * 

-HULLlC 
_  * 

MODIFY  FILE  WGTHANDL 
CRTFORM  LINE  1 

"|  ADD  SYS  SPECIFICATIONS  (WTSPEC  SEGMENT) 


"1 

<77 

r 

"1 

TYPE 

<16  <  WT  TYP 

<77  |" 

"1 

SUBTYPE 

<16  <  WT  STYP 

<77  |" 

"  1 

<77 

ti 

”1 

<77 

n 

"1 

<77 

»i 

"1 

<77 

"  1 

<77 

»t 

"  1 

<77 

n 

"1 

<77 

H 

”  1 

<77 

n 

”1 

<77 

n 

"  1 

<77 

t% 

"  1 
M 

<77 

n 

"1 

(TAB)  NEXT  FIELD, 

(RETURN)  TAKE  ACTION,  ( PF3 )  QUIT  | 

11  __ 

_ 

MATCH  WT_TYP  WT_STYP 
ON  NOMATCH  REJECT 
ON  MATCH  GOTO  HULLAlC 

.* 

CASE  HULLAlC 

.* 

CRTFORM  LINE  1 


"1 

M 

ADD 

SYS 

SPECIFICATIONS  (WTSPEC  SEGMENT) 

1" 

"1 

MFR/DES 

<20 

<MFR  ID 

<77  | 

1" 

"  1 

MFR  NO 

<20 

<MFR  NO 

<77 

1  " 

It  _ 

|  REACH 


I 


<20  <WT_REACH 
SYS  WEIGHT  <20  <WT_WEIGHT 
TIP  MOMENT  <20  <WT  MOM 
<20  <WT 


SYS  COST 
<77  I  " 


:ost 


<38  CAPACITY  <60  <WT_CAP 
<38  LO  VELOCITY<60  <WT_VEL 
<38  SYS  VOLUME  <60  <WT  VOL 
<77  )" 

COMMENTS  <77  I" 


<77 

<77 

<77 


<4  <SPEC_COMl  <77  |" 
<4  <SPEC_COM2  <77 
<4  <SPEC  COM3  <77  | " 
<77  |" 

<77  I" 


( TAB ]  NEXT  FIELD,  (RETURN)  TAKE  ACTION,  [ PF3 )  QUIT 


MATCH  MFR  ID  MFR  NO 
ON  NOMATCH  REJECT 
ON  MATCH  CONTINUE  TO  WT  REACH 


B-240-5 


mf  *c’ 


L» 


ON  MATCH  REJECT 
ON  NOMATCH  INCLUDE 

.  * 

ENDCASE 
.  * 

DATA 
END 
.  * 

-RUN 

-GOTO  HULL1 

.* 

-AMV1 
_  * 

MODIFY  FILE  WGTHANDL 
CRTFORM  LINE  1 


ADD  AMV  REFERENCES  (AMVREF  SEGMENT) 


"i  <77  r 

" I  SYS  TYPE 
" |  SYS  SUBTYPE 
"|  <77  |" 

"|  <77  |" 

"i  <77  r 

"|  <77  I" 

"|  <77  |" 

"1  <77  |" 

"|  <77 
"|  <77  |" 

"|  <77  |" 

"|  <77  I" 

<77  r 


<16  <  WT_TYP 
<16  <  WT  STYP 


flELD  (RETURN)  TAKE  ACTION,  ( PF3 )  QUIT 


MATCH  SHIP 


B -240-6 


V.V. / 


ON  MATCH  REJECT 
ON  NOMATCH  INCLUDE 
GOTO  AMVA1 
.  * 

ENDCASE 
.  * 

DATA 
END 
.  * 

-RUN 

-GOTO  ONE 


MODIFY  FILE  WGTHANDL 
CRTFORM  LINE  1 


ADD  LITERATURE  REFERENCES  (LITREF  SEGMENT) 


TYPE  <16  <  WT_TYP  <77 
SUBTYPE  <16  <  WT  STYP  <77 


[TAB]  NEXT  FIELD,  [ RETURN J  TAKE  ACTION,  [ PF3 ]  QUIT 


MATCH  WTTYP  WTSTYP 
ON  NOMATCH  REJECT 
ON  MATCH  GOTO  LITAl 

.  * 

CASE  LITAl 
.  * 

CRTFORM  LINE  1 


ADD  LITERATURE  REFERENCES  (LITREF  SEGMENT) 


REFERENCE  NO  <17  <  REF_NUM  <77  |" 
<77  |" 

DESCRIPTION  <17  <  REF_DESC  <77  j" 

<77  I" 

<77  |" 

<77  |" 

<77  I" 

<77  |" 

<77  |" 

<77  |" 

<77  |  " 

<77  |" 

<77  I" 


NEXT  FIELD,  [RETURN]  TAKE  ACTION,  [ PF3 ]  QUIT 


B-240-7 


& 


3 

* 


I 


MATCH  REF  NUM 
ON  MATCH~REJECT 
ON  NOMATCH  INCLUDE 
GOTO  LITA1 

-  * 

ENDCASE 
.  * 

DATA 
END 
.  * 

-RUN 

-GOTO  ONE 


-CRTFORM  LINE  1 


CHANGE  SYSTEM  OPTIONS  FOR  WGTHANDL  FILE  -  OEB240 


OPTIONS  LIST 

L]  CHG  MAIN  SEGMENT 
l  j  CHG  DESIGN  SEGMENT 
3 ]  CHG  AMV  REFERENCES 
t]  CHG  LITERATURE  REFS 
>]  FM  DIRECTORY 

OPTION  — >  <  40PTI0N 


■"|  <77 
"|  <77 


( TAB  J  NEXT  FIELD,  (RETURN!  TAKE  ACTION,  (PF3J  QUIT 


-IF  &OPTION  EQ  1  GOTO  MAIN2 ; 
-IF  iOPTION  EQ  2  GOTO  HULL2 ; 
-IF  &OPTION  EQ  3  GOTO  AMV2 ; 
-IF  &OPTION  EQ  4  GOTO  LIT2; 
-IF  40PTI0N  EQ  5  GOTO  TOP; 
-GOTO  TWO 
* 

-MAIN2 
_  * 

MODIFY  FILE  WGTHANDL 
CRTFORM  LINE  1 


CHANGE  MAIN  SYSTEM  (MAIN  SEGMENT) 


"|  <77  I" 

"j  TYPE  <10  <  WT_TYP  <77 

"|  SUBTYPE  <10  <  WT_STYP  <77  |" 
"|  <77  I" 

"|  <33  (  PRESS  RETURN  )  <77 
"|  <77  I" 

MATCH  WTTYP  WT_STYP 
ON  NOMATCH  REJECT 
ON  MATCH  CRTFORM 


COMMENTS  <77 


'•Y'V'Y-V- 


B-240-8 


<T.WT_COMl>  <77  |" 

<T.WT_C0M2>  <77  |" 
<T.WT  COM3 >  <77  | " 
<77  |w 
<77  |  " 

<77  I  " 


(TAB]  NEXT  FIELD,  (RETURN]  TAKE  ACTION,  [ PF3  ]  QUIT 


ON  MATCH  UPDATE  WT_COMl  WT_COM2  WT_COM3 
DATA 
END 
_  * 

-RUN 

-GOTO  TWO 
-  * 

-HULL2 
_  * 

-CRTFORM  LINE  1 


SYS  DESIGN  CHG  OPTIONS  FOR  WGTHANDL  FILE  -  OEB240 


OPTIONS  LIST 

]  CHG  SYS  DESIGN 
)  CHG  SYS  DESCRIPTION 
|  CHG  SYS  SPECIFICATIONS 
]  FM  DIRECTORY 

OPTION  — >  <40PTI0N 


■"I  <77  | 
"I  <77  | 
■"I  <77  | 


NEXT  FIELD,  (RETURN]  TAKE  ACTION,  [PF3]  QUIT 


-IF  SOPTION  EQ  1  GOTO  HULL2A; 
-IF  &OPTION  EQ  2  GOTO  HULL2B; 
-IF  SOPTION  EQ  3  GOTO  HULL2C; 
-IF  &OPTION  EQ  4  GOTO  TWO; 
-GOTO  HULL2 
_  * 

-HULL2A 
_  * 

MODIFY  FILE  WGTHANDL 
CRTFORM  LINE  1 


CHG  SYS  DESIGN  (WTSYS  SEGMENT) 


I  <77  |" 

|  TYPE 
|  SUBTYPE 
I  <77 
I  <77  |" 

I  <77  |" 

I  <77  |" 

I  <77  |" 

I  <77  |" 

I  <77  I" 


<16  <  WT_TYP  <77  | 
<16  <  WT  STYP  <77  | 


B-240-9 


( TAB  1  NEXT  FIELD,  [RETURN!  TAKE  ACTION,  [  PF 3 ]  QUIT 


"  i  <  7  7  " 

H|  <77  | " 
"|  <77 
"|  <77  |" 


MATCH  WT_TYP  WT_STYP 
ON  NOMATCH  REJECT 
ON  MATCH  GOTO  HULLA2A 

* 

CASE  HULLA2A 
* 

CRTFORM  LINE  1 


”|  CHG  DESIGN  (WTSYS  SEGMENT) 

H 


"i  <77  r 

" I  MFR/DESIGNER  <16  <  MFR_I D 
n|  MFR  NUMBER  <16  <  MFR  NO 

"|  <77  | " 

"j  <30  (  PRESS  RETURN  )  <77 
MATCH  MFRID  MFR  NO 
ON  NOMATCH  REJECf 
ON  MATCH  CRTFORM 
"|  <77  I" 

"I 

"|  <77  | " 

"|  <4  < T . MFR_COMl >  <77  |" 

"|  <4  <T.MFR_COM2>  <77  |" 

"  |  <4  <T.MFR  COM3>  <77  | " 

"I  <77  I" 

"|  <77  |" 

"|  <77  |" 


<77  |  " 
<77  |  " 


COMMENTS  <77  |" 


"|  [TAB]  NEXT  FIELD,  [RETURN]  TAKE  ACTION 

_ _  _  _  _  _  _ _ _  _  _  _  _  _ 

ON  MATCH  UPDATE  MFRCOM1  MFRCOM2  MFRCOM3 

_* 

ENDCASE 


H 


^  ^  ^  _ _ _ _ ___ _ K 

[ PF3 )  QUIT 


DATA 
END 
_  * 

-RUN 

-GOTO  HULL2 
-* 

-HULL2B 
_  * 

MODIFY  FILE  WGTHANDL 
CRTFORM  LINE  1 


CHG  SYS  DESCRIPTION  ( HTDESC  SEGMENT) 


"|  <77  |" 

"|  TYPE  <16  <  WT_TYP  <77  |" 

"|  SUBTYPE  <16  <  WT  STYP  <77 

"|  <77 
"|  <77  |" 

"|  <77  |" 

"|  <77  |" 

"|  <77  |" 

"i  <77  r 


B-240-10 


TAB ]  NEXT  TIELD,  [RETURN]  TAKE  ACTION,  [PF3]  QUIT 


NATCH  WT_TYP  WT_STYP 
ON  NOMATCH  REJECT 
ON  MATCH  GOTO  HULLA2B 

.  * 

CASE  HULLA2B 
.  * 

CRTFORM  LINE  1 


CHG  DESCRIPTION  (WTDESC  SEGMENT) 


"|  MPR/DESIGNER  <16  <  MFR__ID 
"|  MFR_NUMBER  <16  <  MFR  NO 
”|  <30  (  PRESS  RETURN  )  <77  ]"" 


MATCH  MFR  ID  MFR  NO 
ON  NOMATCH  REJECT 
ON  MATCH  CONTINUE  TO  WTPRIFN 
ON  NOMATCH  REJECT 
ON  MATCH  CRTFORM 

"|  PRI  FUNCTION  <12  <T.WT  PRI  FN>  <38  POWER  TYPE  <50  <T.WT  PWR  TYP> 
"|  DYN  POS  (Y/N)  <12  <T.WT~DYN  POS>  <77  ~ 

"i  <77  r 


<77  |" 

<4  <T.DESC_COMl>  <77  | 
<4  <T.DESC_COM2>  <77  | 
<4  <T. DESC- COM3>  <77  | 
<77  I" 


COMMENTS  <77  | 


[TAB]  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  [ PF3 )  QUIT 


"I 

<77 

1  " 

1 

<77 

1  11 

”  1 

<77 

i  " 

"1 

<77 

1  H 

"  i 

<77 

1  " 

"1 

<77 

1  n 

"  1 

<77 

|  it 

"I 

<77 

I  it 

"  1 

<77 

1  " 

It 

MATCH  WT  TYP  WT  STYP 
ON  NOMAfCH  REJECT 
ON  MATCH  GOTO  HULLA2C 

.  * 

CASE  HULLA2C 
.  * 

CRTFORM  LINE  1 


”1 

it 

CHG 

SPECIFICATIONS 

( WTSPEC  SEGMENT) 

1  " 
If 

"1 

MFR/DE SIGNER 

<16  < 

MFR  ID  <77 

1  " 

"  1 

MFR  NUMBER 

<16  < 

MFR  NO  <30 

(  PRESS  RETURN  )  <77  |" 

It  _ 

It 

MATCH  MFRID  MFR_NO 
ON  NOMATCH  REJECT 
ON  MATCH  CONTINUE  TO  WTREACH 
ON  NOMATCH  REJECT 
ON  MATCH  CRTrORM 


"1 

REACH 

<20 

<T .  WT 

REACH) 

<38 

CAPACITY 

<60 

<  T .  WT 

CAP) 

<77 

"1 

SYS 

WEIGHT 

<20 

<T.WT' 

'WEIGHT) 

<38 

LO  VELOCITY 

<60 

<  T .  WT* 

VEL) 

<77 

"1 

TIP 

MOMENT 

<20 

<  T .  WT~ 

'MOM) 

<38 

SYS  VOLUME 

<60 

<  T .  WT~ 

VOL) 

<77 

"  1 

SYS 

COST 

<20 

<T.WT' 

'COST) 

<77 

1  " 

" ! 

<77 

1" 

<4  <T.SPEC_COHl>  <77 
<4  <T . SPEC_COH2>  <77 
<4  <T . SPEC  COM3>  <77 
<77  |" 

<77  I  M 


COMMENTS  <77  | 


[TAB]  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  [ PT3 ]  QUIT 


ON  MATCH  UPDATE  WT  REACH  WT  CAP  WT  WEIGHT  WT  VEL  WTMOM  WT_VOL  WTCOST 
ON  MATCH  UPDATE  SPfC_COMl  S?EC  COM?  SPEC_COM? 

.  *  ~ 

ENDCASE 
.  * 

DATA 
END 
.  * 

-RUN 

-GOTO  HULL2 
.  * 

-AMV2 
.  * 

MODIFY  FILE  WGTHANDL 
CRTFORM  LINE  1 


CHG  AMV  REFERENCES  ( AMVREF  SEGMENT) 


I  " 


<77 


B-240-12 


•  J  »  MVi  •  *  i  ,*  /  *  *  - 


TYPE  <16  <  WT_TYP  <77 
SUBTYPE  <16  <  WT_STYP  <77 
<77  |" 

<77  |" 

<77  I  " 


(TAB)  NEXT  FIELD,  [RETURN)  TAKE  ACTION,  ( PF3 ]  QUIT 

MATCH  WT  TYP  WT  STYP 
ON  NOMATCH  REJfCT 
ON  MATCH  GOTO  AMV2 

.  * 

CASE  AMV2 
.  * 

CRTFORM  LINE  1 

H _ _ _ _ _ 

n  CHG  AMV  REFERENCES  ( AMVREF  SEGMENT) 


"|  <77  |" 

"|  SHIP  ID  <16  <  SHIPID  <77  |' 
"|  <77  |" 

"|  <33  (  PRESS  RETURN  )  <77  |" 


MATCH  SHIPID 
ON  NOMATCH  REJECT 
ON  MATCH  CRTFORM 

"i  <77  r 

"|  SHIP  NAME  <16  <T . SHI P_NAME>  <77 
"[  SHIP  FLAG  <16  <T . SHIP  FLAG>  <77 
"I  <77  I" 


(TAB)  NEXT  FIELD,  (RETURN)  TAKE  ACTION,  ( PF3 )  QUIT 


ON  MATCH  UPDATE  SHIPJ4AME  SHIP  FLAG 
GOTO  AMV2 
* 

ENDCASE 

* 

DATA 

END 

* 

RUN 

GOTO  TWO 


MODIFY  FILE  WGTHANDL 
CRTFORM  LINE  1 


B-240-13 


'A'.W. 


CHG  LITERATURE  REFERENCE  ILITREF  SEGMENT) 


<77  |M 
TYPE  <16 
SUBTYPE  <16 
<77  |  " 

<77  |" 

<77  |" 

<77  |H 
<77  |  H 
<77  |  " 

<77  |  " 

<77  |  " 

<77  |  * 

<77  |  " 

<77  I  " 


WT_TYP  <77 
WT  STYP  <77 


[TAB]  NEXT  FIELD,  [RETURN)  TAKE  ACTION,  [ PT 3 )  QUIT 


MATCH  WT_TYP  WTSTYP 
ON  NOMATCH  REJECT 
ON  MATCH  GOTO  LITA2 

.  * 

CASE  LITA2 
.  * 

CRTFORM  LINE  1 


CHG  LITERATURE  REFERENCE  (LITREP  SEGMENT) 


RET  NUMBER  <17  <  REF  NUM  <77  | 
<77  |  " 

<33  (  PRESS  RETURN  )  <77  )" 


MATCH  REF  NUN 
ON  NOMATCH  REJECT 
ON  MATCH  CRTFORM 


<77  |  " 

<8  <T.REF_DESC>  <77 
<77  |" 

<77  |  " 

<77  |  " 

<77  |  " 

<77  I  " 


REFERENCE  DESCRIPTION 


(TAB)  NEXT  FIELD,  [RETURN)  TAKE  ACTION,  (PF3)  QUIT 


ON  MATCH  UPDATE  REFDESC 
GOTO  LITA2 
.  * 

ENDCASE 
.  * 

DATA 
END 
.  * 

-RUN 

-GOTO  TWO 


-THREE 


-CRTFORM  LINE  1 


B-240-14 


■/.".■‘.V.V.v.'av.v.v.v.  v.vv.-v.v.v.v.v.v; 


-IF  (OPTION  EQ  1  GOTO  MAIN3 ; 
-IF  (OPTION  EQ  2  GOTO  HULL 3; 
-IF  (OPTION  EQ  3  GOTO  AMV3; 
-IF  (OPTION  EQ  4  GOTO  LIT3; 
-IT  (OPTION  EQ  5  GOTO  TOP; 
-GOTO  THREE 
_  • 

-PIAIN3 
-  * 

MODIFY  FILE  WGTHANDL 
CRTFORM  LINE  1 


DELETE  MAIN  SYSTEM  (MAIN  SEGMENT) 


"|  <77  |" 

"|  TYPE  <10  <  WT_TYP  <77 

"|  SUBTYPE  <10  <  WT  STYP  <77  |" 

"i  <77  r 

"I  <33  (  PRESS  RETURN  )  <77  |" 


MATCH  WTTYP  WTSTYP 
ON  NOMATCH  REJECT 
ON  MATCH  CRTFORM 

"|  <77  |" 

"j  COMMENTS  <77  j" 

"|  <4  <D.WT_COMl  <77  I" 

"j  <4  <D.WT_COM2  <77  j" 

"|  <4  <D.WT  COM3  <77  |  " 

"|  <77  |" 

"|  <77  |" 

"|  <77  |- 


( TAB ]  NEXT  FIELD,  (RETURN)  TAKE  ACTION,  [ PF3 )  QUIT 


ON  MATCH  DELETE 
DATA 
END 
_  * 

-RUN 

-GOTO  THREE 
-  * 

-HULL3 


B-240-15 


DEL  SYS  DESIGN  (WTSYS  SEGMENT) 


<77 
TYPE 
SUBTYPE 
<77  |  " 
<77  |  " 
<77  |  " 
<77  |  " 
<77  |" 
<77  |  " 
<77  |  " 
<77  |" 
<77  |  " 
<77  |  " 
<77  I" 


<16  <  WT_TYP  <77 
<16  <  WT  STYP  <77 


[TAB]  NEXT  FIELD,  [RETURN)  TAKE  ACTION,  [ PF3 )  QUIT 


MATCH  WTTYP  WT_STYP 
ON  NOMATCH  REJECT 
ON  MATCH  GOTO  HU L LA 3 A 

.  * 

CASE  HULLA3A 
.  * 

CRTFORM  LINE  1 


DEL  DESIGN  (WTSYS  SEGMENT) 


B-240-16 


V '«•  V.V.V\  V 


WW 


av.v.v.v: 


f  •  -  Ji  -  y 

~ m r,*. - 

-  * 

-L-  *-w 

$ 

e  V 

• 

"  1 

<77  |" 

"  1 

MFR/DES IGNER 

<16 

< 

MFR  ID 

<77  l  " 

"1 

MFR  NUMBER 

<16 

< 

MFR  NO 

<32  (PRESS  RETURN)  <77 

"1 

<77  |  " 

» * « 

MATCH  MFR  ID  MFR 

NO 

ON 

NOMATCH  REJECT 

.V, 

ON 

MATCH  CRTFORM 

"  1 

COMMENTS  <77  |" 

"1 

<4  <D . MFR  COMl 

<77 

" 

*>] 

”1 

<4  <D . MFR  COM2 

<77 

"1 

<4  < D . MFR  COM3 

<77 

" 

"  | 

<77  |" 

”1 

<77  I  " 

ila 

"1 

<77  |  " 

• 

"1 

<77  |  " 

r-  -« 

"1 

<77 

"1 

II 

<77  |" 

MATCH  WT_TYP  WT  STYP 
ON  NOMATCH  REJECT 
ON  MATCH  GOTO  HULLA3B 

.  * 

CASE  HULLA3B 
.  * 

CRTFORM  LINE  1 


B-240-17 


.S  A  .v  .VW.vaV.V 


DEL  DESCRIPTION  (WTDESC  SEGMENT) 


|  MFR/DES IGNER  <16  <  MFR_I D 
|  MFR_NUMBER  <16  <  MFR  NO 
I  <30  (  PRESS  RETURN  )  <77  T” 


MATCH  MFR_ID  MFR_NO 
ON  NOMATCH  REJECT 
ON  MATCH  CONTINUE  TO  WT_PRI_FN 
ON  NOMATCH  REJECT 
ON  MATCH  CRTFORM 

"|  PRI  FUNCTION  <12  <D.WT_PRI_FN> 
"|  DYN  POS  (Y/N)  <12  <D.WT  DYN  POS> 
"|  <77 
"I  <77  I" 


<38  POWER  TYPE  <50  <D.WT  PWR  TYP> 

<77  r  ~ 


"|  <77  I" 

"|  <4  <D . DESC_COMl >  <77 
"|  <4  <D.DESC_COM2>  <77 
"|  <4  <  D . DESC_COM3  >  <77 
"I  <77  I” 


COMMENTS  <77 


(TAB]  NEXT  FIELD,  (RETURN]  TAKE  ACTION,  ( P F 3  ]  QUIT 


ON  MATCH  DELETE 

_  * 

ENDCASE 
_  * 

DATA 
END 
_  * 

-RUN 

-GOTO  HULL3 
-  * 

-HULL3C 
.  * 

MODIFY  FILE  WGTHANDL 
CRTFORM  LINE  1 


_  * 


am 


£3 


p 

In 


CRTFORM  LINE  1 


CHG  SPECIFICATIONS  (WTSPEC  SEGMENT) 


MFR/DESIGNER 
MFR  NUMBER 


<16  <  MFR_ID 
<16  <  MFR  NO 


<77  I" 

<30  (  PRESS  RETURN  )  <77 


MATCH  MFR_ID  MFR_NO 
ON  NOMATCH  REJECT 
ON  MATCH  CONTINUE  TO  WT_REACH 
ON  NOMATCH  REJECT 
ON  MATCH  CRTFORM 

"|  REACH  <20  <D.WT_REACH>  <38  CAPACITY  <60  <D.WT_CAP> 

"|  SYS  WEIGHT  <20  <D . WT_WEIGHT>  <38  LO  VELOCITY  <60  <D.WT_VEL> 

TIP  MOMENT  <20  < D . WT_MOM>  <38  SYS  VOLUME  <60  <D.WT_VOL> 

"|  SYS  COST  <20  <D.WT  COST>  <77  | H 
"|  <77  |M 

"j  COMMENTS  <77 

"|  <4  <D.SPEC_COMl>  <77  |" 

"|  <4  <D.SPEC_COM2>  <77  |" 

"j  <4  <D.SPEC_COM3>  <77  |" 

"|  <77  I" 

"|  <77  I" 

It 


"|  (TAB)  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  [ PF3 ]  QUIT 

ON  MATCH  DELETE 

.  * 

ENDCASE 
-  * 

DATA 
END 
-  * 

-RUN 

-GOTO  HULL3 

-* 

-AMV3 
.  * 


MODIFY  FILE  WGTHANDL 
CRTFORM  LINE  1 


DEL  AMV  REFERENCES  ( AMVREF  SEGMENT) 


ft* 


ON  MATCH  GOTO  AMVA3 


CASE  AMVA3 
* 

CRTFORM  LINE  1 

" _ .1 

H|  DEL  AMV  REFERENCES  (AMVREF  SEGMENT)  |  " 


"i  <77  r 

"|  SHIP  ID  <16  <  SHI P_ID  <77 
"|  <77  r 

"|  <33  (  PRESS  RETURN  )  <77  |" 


MATCH  SHIPID 
ON  NOMATCH  REJECT 
ON  MATCH  CRTFORM 

"i  <77  r 

"|  SHIPNAME  <16  <  D . SHIP  NAME  <77 
"|  SHIP  FLAG  <16  <  D.SHIP'FLAG  <77 
" |  <77  J" 

"|  <77  |" 

"|  <77  I" 

"|  <77  |" 

"|  <77  I" 

"|  <77  |" 

« _ _ _ _ _ ii 

"|  [ TAB ]  NEXT  FIELD,  [RETURN)  TAKE  ACTION,  [ PF3 )  QUIT  |H 

* _ _ _ _ _ _ _ _ H 

ON  MATCH  DELETE 
GOTO  AMVA3 
_  * 

ENDCASE 
_  * 

DATA 
END 
-  * 

-RUN 

-GOTO  THREE 


-LIT3 

_  * 

MODIFY  FILE  WGTHANDL 
CRTFORM  LINE  1 


DEL  LITERATURE  REFERENCE  (LITREF  SEGMENT) 


n  _  ____  _  _  _  _  _  _  _ n 


1  <77 

1  TYPE 

M 

<16 

<  WT  TYP  <77  | " 

1  SUBTYPE 

<16 

<  WT  STYP • < 77  j " 

1  <77 

N 

1  <77 

" 

1  <77 

" 

1  <77 

" 

1  <77 

" 

1  <77 

" 

1  <77 

" 

I  <77 

" 

1  <77 

" 

1  <77 

" 

I  <77 

" 

[TAB]  NEXT  FIELD,  [RETURN)  TAKE  ACTION,  [ PF3 ]  QUIT 


B-240-20 


B-240-21 


_  tk 


FILE  MAINTENANCE  ROUTINE  FOR  VESSAUTO  FILE  -  OEB250 


•‘DESIGNED  FOR 
•‘DESIGNED  BY 
•‘DATE  LAST  REV 


USCG  RiD  CENTER,  OCEAN  ENGINEERING  BRANCH 
M.  J.  STEVENS  ( VTC ) 

4/16/87 


-TOP 

-DEFAULTS  4OPTION-0 
•CRTFORM  LINE  1 


FILE  MAINTENANCE  ROUTINES  FOR  VESSAUTO  FILE  -  OEB250 


MAINTENANCE  OPTIONS  LIST 

I  1 3  ADD  AUTOMATION  SYS 
12)  CHG  AUTOMATION  SYS 
[31  DEL  AUTOMATION  SYS 
[4]  EXIT  VESSAUTO  FILE 


OPTION 


■>  <40PTI0N 


<77  | 
<77  | 
<77  I 


[TAB]  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  [PF3]  QUIT 


-ir  (OPTION  EQ  1  GOTO  ONE; 
-ir  (OPTION  EQ  2  GOTO  TWO; 
-IF  (OPTION  EQ  3  GOTO  THREE; 
-IF  (OPTION  EQ  4  GOTO  FOUR; 
-GOTO  TOP 


-CRTFORM  LINE  1 


ADD  SYSTEM  OPTIONS  FOR  VESSAUTO  FILE  -  OEB250 


OPTIONS  LIST 

[1]  ADD  MAIN  SEGMENT 

[2]  ADD  DESIGN  SEGMENT 

[ 3 ]  ADD  AMV  REFERENCE 

[4]  ADD  LITERATURE  REF 

[5]  FM  DIRECTORY 

OPTION  — >  <(OPTION 


(TAB)  NEXT  FIELD,  [RETURN)  TAKE  ACTION,  [ PF3 )  QUIT 


B-250-1 


•w.vvv'jv  '.*>  wvjvy  i-  “  j  i ; « j!  ij.1  ■_.  M1  «.y  \v < 


V.T' 


TTTTT  ;  ■■.H.'.V.V.T1. 


-IF 

&OPTION 

EQ 

1 

GOTO 

MAINl ; 

-IF 

&OPTION 

EQ 

2 

GOTO 

HULLl ; 

-IF 

&OPTION 

EQ 

3 

GOTO 

AMV1  ; 

-IF 

40PTI0N 

EQ 

4 

GOTO 

LITl; 

-IF 

tOPTION 

EQ 

5 

GOTO 

TOP; 

-GOTO  ONE 
.  * 

-MAINl 
.  * 

MODIFY  FILE  VESSAUTO 
CRTTORM  LINE  1 


1 

ADO  NEW  SYSTEM  (MAIN  SEGMENT) 

1 " 

|  TYPE 

<10 

<  VS  TYP 

<77  r 

|  SUBTYPE 

<10 

<  VS_STYP 

<77  r 

"i 

<77 

1  " 

"i 

COMMENTS:  <77  |" 

"i 

<77 

1" 

”i 

<  VS 

COMl 

<77  |  " 

"  i 

<  vs 

COM2 

<77  |  " 

"  i 

<  vs 

“COM3 

<77  |  " 

n  | 

<77 

T- 

rt  | 

<77 

r 

it  i 

<77 

i " 

n  » 

<77 

i " 

i*  | 

tt 

<77 

i " 

"1 

[TAB]  NEXT  FIELD, 

[RETURN]  TAKE  ACTION,  [Pr3]  QUIT  | 

n  — 

MATCH  VSTYP  VS  STYP 
ON  MATCH  REJECT 
ON  NOMATCH  INCLUDE 
DATA 
END 
• 

RUN 

GOTO  ONE 

* 

HULL1 

* 

CRTFORM  LINE  I 


SYS  DESIGN  ADD  OPTIONS  FOR  VESSAUTO  FILE  -  OEB250 


OPTIONS  LIST 

[1]  ADD  SYS  DESIGN 

[2]  ADD  SYS  DESCRIPTION 

(3)  ADD  SYS  SPECIFICATIONS 

(4)  FM  DIRECTORY 

OPTION  -->  < 40PTI0N 


<77 

<77 


■"I 

p  H 

.ft 


(TAB)  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  ( PF3 ]  QUIT 


B-250-2 


■>: 


VI 

i.  V  Wi 


-IF  &OPTION  EQ  1  GOTO  HULL 1A 
-IF  &OPTION  EQ  2  GOTO  HULL1B 
-IF  &OPTION  EQ  3  GOTO  HULL1C 
-IF  40PTI0N  EQ  4  GOTO  ONE; 
-GOTO  HULL1 
-  * 

-HULL1A 
-  * 

MODIFY  FILE  VESSAUTO 
CRTFORM  LINE  1 


ADD  SYS  DESIGNS  (VASYS  SEGMENT) 


"|  <77  |" 

" |  TYPE 
" |  SUBTYPE 
"|  <77  |" 
”|  <77  |" 
"|  <77  |- 
"|  <77  |" 
"|  <77 
”|  <77  |" 
M|  <77  |" 
"|  <77  |" 
"|  <77  |" 
"|  <77  |" 
"|  <77  |" 


[TAB]  NEXT  FIELD ,  (RETURN]  TAKE  ACTION,  ( PF3 ]  QUIT 


<16  <  VS_TYP  <77  |" 
<16  <  VS_STYP  <77  | " 


MATCH  VS  TYP  VSSTYP 
ON  nomaTch  REJECT 
ON  MATCH  GOTO  HULLA1A 

.* 

CASE  HULLA1A 
.  * 

CRTFORM  LINE  1 


ADD  DESIGNS  (MAIN  SEGMENT) 


ADD  SYS  DESCRIPTION  (VADESC  SEGMENT) 


I 


| 


"i  <77  r 

" I  TYPE 
" |  SUBTYPE 

"i  <77  r 

<77  I " 

"  i  <77  r 

M I  <77  I " 
"|  <77 
"|  <77 
"|  <77  |  " 
"|  <77  |" 
"|  <77 
"|  <77  |" 
"|  <77  |" 


[TAB]  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  [ Pr 3 ]  QUIT 


MATCH  VS  TYP  VS  STYP 
ON  NOMATCH  REJlCT 
ON  MATCH  GOTO  HULLA1B 

* 

CASE  HULLA1B 


CRTFORM  LINE  1 


1 

ADD  DESCRIPTION  (VADESC  SEGMENT) 

|  MFR/DES IGNER 

<16 

<  MPR  ID  <77 

|  MFRNUMBER 

<16 

<  HFR'NO  <77 

H 


"1 

FUNCTION 

<12 

< 

VA  FN 

<38  INPUT  1 

<50 

<VA  INI 

<77  |  " 

"1 

INPUT  2 

<12 

< 

VA  IN2 

<38  INPUT  3 

<50 

<VA  IN3 

<77  |  " 

"  1 

OUTPUT  1 

<12 

< 

VA  OUT1 

<38  OUTPUT2 

<50 

<VA_OUT2 

<77  |  " 

"  1 

OUTPUT  3 

<12 

< 

VA_OUT  3 

<77  |" 

"  | 

<77  |  " 

"  1 

COMMENTS  <77  | 

r 

"  1 

<77  |" 

"1 

<4  <  VA  COM1 

<77  | 

M 

"1 

<4  <  VA~COM2 

<77  ) 

«• 

"  | 

<4  <  VA  COM3 

<77  | 

m 

"  I 

n  _ 

<77  |"  ~ 

"1 

[TAB] 

NEXT  FIELD, 

[RETURN]  TAKE 

ACTION, 

[ PF3 ]  QUIT 

<16  <  VS_TYP  <77  |" 
<16  <  VS  STYP  <77  (  " 


N 


MATCH  MFR  ID  MFR  NO 
ON  NOMATffH  REJECT 
ON  MATCH  CONTINUE  TO  VA  FN 
ON  MATCH  REJECT 
ON  NOMATCH  INCLUDE 


B-250-4 


CNDCASE 
_  • 

DATA 
END 
-  * 

-RUN 

-GOTO  HULL1 
_  * 

-HULL1C 


MODI TY 

FILE  VESSAUTO 

CRTFORM 

n 

LINE  1 

"  1 
n 

ADD 

SYS  SPECIFICATIONS  (VASPEC  SEGMENT) 

1  " 

"  1 

<77 

1  " 

"1 

TYPE 

<16  < 

VA  TYP  <77  | " 

"1 

SUBTYPE 

<16  < 

VA  STYP  <77  |H 

"1 

<77 

1  " 

"1 

<77 

1  " 

"1 

<77 

1  " 

"1 

<77 

1  " 

"1 

<77 

1  " 

"I 

<77 

1  " 

M 1 

<77 

1  " 

"  1 

<77 

1  " 

"  I 

<77 

1  " 

"  | 

<77 

1  " 

"  1 

<77 

1  " 

ff  _ 

_ 

[TAB]  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  [PF3]  QUIT 


MATCH  VA  TYP  VASTYP 
ON  NOMAfCH  REJECT 
ON  MATCH  GOTO  HULLA1C 

• 

CASE  HULLA1C 


CRTFORM  LINE  1 


1 

ADD  SYS 

SPECIFICATIONS  (VASPEC 

SEGMENT) 

1  " 

|  MFR/DES 
|  MFR  NO 

<20  <MFR  ID  <77 
<20  <MFR_NO  <77 

r 

r 

|  COST 

1  <77  |- 

<20  <VA_COST 

<38  EFF  RATING  <60 

< VAEFFRAT 

<77  |  " 

"|  <77  |" 

"i  <77  r 

"|  <77  I" 

"|  COMMENTS  <77  |" 

" |  <4  <SPEC  COM1  <77  |  " 

"|  <4  <SPEC_COM2  <77  |" 

"  |  <4  < SPEC  COM3  <77  |  " 

"i  <77  r 

"|  <77  |" 


[TAB]  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  ( PF3 )  QUIT 


ON  MATCH  REJECT 
ON  NOMATCH  INCLUDE 

_  * 

ENDCASE 
-  * 

DATA 
END 
_  * 

-RUN 

-GOTO  HULL1 
_  * 

-AM  VI 


modify  riLE  vessauto 

CRTFORM  LINE  1 

H _ _ _ II 

"|  ADD  AMV  REFERENCES  (AMVREF  SEGMENT)  |" 


i»  _  _ _ _ _  _ _ _ _  _  _ _  _  ii 


"1 

<77 

1  " 

"  1 

SYS 

TYPE 

<16 

<  VS 

TYP 

<77  |  " 

"  1 

SYS 

SUBTYPE 

<16 

<  VS 

STYP 

<77  |  " 

"1 

<77 

r 

"  1 

<77 

i " 

"  1 

<77 

i " 

"  1 

<77 

i" 

"  1 

<77 

i " 

"1 

<77 

i " 

"  1 

<77 

i " 

"1 

<77 

i " 

"1 

<77 

i " 

"  1 

<77 

i " 

"  1 
If 

<77 

r 

"1 

[TAB] 

NEXT 

FIELD, 

[RETURN]  TAKE  ACTION,  [ PF3  ]  QUIT  | 

H  _ 

MATCH  VS  TYP  VSSTYP 
ON  NOMAfCH  REJECT 
ON  MATCH  GOTO  AMVA1 

• 

CASE  AMVA1 
CRTTORM  LINE  1 


ADD  AMV  REFERENCES  (AMVREF  SEGMENT) 


ii _ _ _ _ _ _ _ _ H 


1 

<77 

" 

1 

SHIP 

ID 

<16 

<  SHIP  ID  <77 

* 

1 

<77 

" 

1 

SHIP 

NAME 

<16 

<  SHIP  NAME  <77 

" 

1 

SHIP 

FLAG 

<16 

<  SHIP  FLAG  <77 

" 

1 

<77 

" 

1 

<77 

" 

1 

<77 

" 

1 

<77 

" 

! 

<77 

" 

1 

<77 

" 

! 

<77 

" 

1 

<77 

" 

1 

<77 

" 

1 

[TAB]  NEXT  FIELD, 

[RETURN]  TAKE  ACTION,  [ PF3 ]  QUIT  ! 

MATCH  SHIP  ID 


ON  MATCH  REJECT 
ON  NOMATCH  INCLUDE 
GOTO  AMVA1 
_  * 

ENDCASE 
_  * 

DATA 
END 
-  * 

-RUN 

-GOTO  ONE 


-LIT1 
_  * 

MODIFY  FILE  VESSAUTO 
CRTFORM  LINE  1 


It  ^  _____  ^  ^  — —  _  _  _  _  _  _  _  _  _  s  _  _  _  _  _ _  _  _  _  _  __________________________________ _ „ _ M 


"1 

ft 

ADD  LITERATURE  REFERENCES  (LITREF  SEGMENT)  | 

"|  <77 

1  " 

"  |  SYS 

TYPE 

<16  < 

VS  TYP  <77  |  " 

”  |  SYS 

SUBTYPE 

<16  < 

VS  STYP  <77  | " 

"  |  <77 

r 

"  |  <77 

r 

”|  <77 

i " 

"|  <77 

r 

"1  <77 

i " 

"  |  <77 

i " 

<77 

i " 

"  |  <77 

i  - 

"  |  <77 

i " 

"|  <77 

i " 

"|  <77 

ft 

i " 

"1 

ft 

[TAB 

]  NEXT  FIELD,  (RETURN)  TAKE  ACTION,  ( PF3 )  QUIT  I 

MATCH  VS  TYP  VS 

STYP 

ON  NOMATCH  REJECT 

ON  MATCH  GOTO 

LITAl 

_  * 


CASE  LITAl 


_  * 

CRTFORM 

it 

LINE  1 

”( 

h 

ADD  LITERATURE 

REFERENCES  (LITRE F  SEGMENT)  | 

"i 

<77 

" 

"  i 

REFERENCE  NO 

<17 

<  REF  NUM  <77 

1" 

"  i 

<77 

" 

"i 

DESCRIPTION 

<17 

<  REF  DESC  <77 

1" 

"i 

<77 

" 

"  t 

<77 

" 

-i 

<77 

" 

"i 

<77 

" 

"i 

<77 

" 

■  i 

<77 

" 

"  i 

<77 

" 

"i 

<77 

" 

"  i 

<77 

" 

" ! 

<77 

" 

»« 

(TAB)  NEXT  FIELD,  (RETURN)  TAKE  ACTION,  [ P F 3 )  QUIT 


B-250-7 


MATCH  REF_NUM 
ON  MATCH  REJECT 
ON  NOMATCH  INCLUDE 
GOTO  LITA1 

-  * 

ENDCASE 
_  * 

DATA 

END 

_  * 

-RUN 

-GOTO  ONE 


-TWO 


-CRTFORM  LINE  1 


CHANGE  SYSTEM  OPTIONS  FOR  VESSAUTO  FILE  -  OEB250 


-"|  OPTIONS  LIST 

I 

(1]  CHG  MAIN  SEGMENT 

-")  [2]  CHG  DESIGN  SEGMENT 

-”|  (31  CHG  AMV  REFERENCES 

-"|  (4]  CHG  LITERATURE  REFS 

-"|  ( 5 1  FM  DIRECTORY 

-nl 

-”|  OPTION  — >  <(OPTION 

-"I 

-H|  <77  |" 

-"|  <77  (" 


( TAB  1  NEXT  FIELD,  (RETURN)  TAKE  ACTION,  [ PF3 ]  QUIT 


-IF  (OPTION  EQ  1  GOTO 
-IF  (OPTION  EQ  2  GOTO 
-IF  (OPTION  EQ  3  GOTO 
-IF  (OPTION  EQ  4  GOTO 
-IF  (OPTION  EQ  5  GOTO 
-GOTO  TWO 


MAIN2; 
HULL 2 ; 
AMV2; 
LIT2; 
TOP; 


_  * 


-MAIN2 


MODIFY  FILE  VESSAUTO 
CRTFORM  LINE  1 

H 


"|  CHANGE  MAIN  SYSTEM  (MAIN  SEGMENT) 

« _ « 


"|  <77  |" 

"|  TYPE  <10  <  VS_TYP  <77 

"|  SUBTYPE  <10  <  VS  STYP  <77  |" 
"1  <77 

"I  <33  (  PRESS  RETURN  )  <77  |" 

"|  <77  | " 

MATCH  VS_TYP  VS  STYP 
ON  NOMATCH  REJECT 
ON  MATCH  CRTFORM 
"  I 

"|  <77  |  " 


COMMENTS  <77 


3 


a 


B-250-8 


"  |  <T.VS_C0M1>  <77  i  " 

"|  <T.VS_C0M2>  <77  i” 
“ |  <T. VS  COM3  >  <77 
"|  <77  |w 
"|  <77  | - 
"|  <77  |" 


[TAB]  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  [  PF3 ]  QUIT 


ON  MATCH  UPDATE  VS_COMl  VS_COM2  VS_COM3 
DATA 
END 
_  * 

-RUN 

-GOTO  TWO 

_  * 

-HULL2 
_  * 

-CRTFORM  LINE  1 


SYS  DESIGN  CHG  OPTIONS  FOR  VESSAUTO  FILE  -  OEB250 


[TAB]  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  [ PF 3  ]  QUIT 


-|  <77 

"I  <77 
”|  <77  |" 
"|  <77  I" 


MATCH  VSTYP  VS_STYP 
ON  NOMATCH  REJECT 
ON  MATCH  GOTO  HULLA2A 

.  * 

CASE  HULLA2A 
.  • 

CRTFORM  LINE  1 


CHG  DESIGN  (VASYS  SEGMENT) 


I  <77  |" 

|  MFR/DESIGNER  <16  <  MFR_ID 

j  MFRNUMBER  <16  <  MFR  NO 

I  <77  I" 

|  <30  (  PRESS  RETURN  )  <77 
MATCH  MTR_ID  MFR_NO 
ON  NOMATCH  REJECT 
ON  MATCH  CRTFORM 

i  <77  r 

I 

I  <77  I" 

|  <4  <T.MFR_COMl>  <77  |" 

|  <4  <T.MFR_COM2>  <77  |" 

|  <4  <T.MFR_COM3>  <77 

I  <77  I" 

I  <77  |n 
I  <77  I" 


COMMENTS  <77  I" 


[TAB]  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  [ PF3 ]  QUIT 


ON  MATCH  UPDATE  MFR  COM1  MFR_COM2  MFR_COM3 

_  * 

ENDCASE 
_  * 

DATA 
END 
_  * 

-RUN 

-GOTO  HULL2 
_  * 

-HULL2B 
_  * 

MODIFY  FILE  VESSAUTO 
CRTFORM  LINE  1 


CHG  SYS  DESCRIPTION  (VADESC  SEGMENT) 


<77  |" 
TYPE 
SUBTYPE 
<77  I" 


<16  <  VS_TYP  <77 
<16  <  VS  STYP  <77 


"  |  <77 
"  |  <77 
"|  <77 
"  I  <77 
"  |  <77 


S 


B-250-10 


MATCH  VS_TYP  VS_STYP 
ON  NOMATCH  REJECT 
ON  MATCH  GOTO  HULLA2B 

* 

CASE  HULLA2B 
* 

CRTFORM  LINE  1 


MFR/DESIGNER  <16  <  MFR_I D 
MFR_NUMBER  <16  <  MFR  NO 
<30  (  PRESS  RETURN  )  <77  J" 


MATCH  MFRID  MFR_NO 
ON  NOMATCH  REJECT 
ON  MATCH  CONTINUE  TO  VA_FN 
ON  NOMATCH  REJECT 
ON  MATCH  CRTFORM 
”|  FUNCTION  <12  <T.VA_FN> 

"|  INPUT  2  <12  <T.VA_IN2> 

"j  OUTPUT  1  <12  <T.VA_OUTl> 

"|  OUTPUT  3  <12  <T.VA_OUT3> 

"|  <77  |" 

"I 

"|  <77  |" 

"j  <4  <  T . VA_COMl >  <77  |" 

"|  <4  <T.VA_COM2>  <77  |" 

"  |  <4  <T.VA  COM3>  <77  | " 

"I  <77  r 


<38 

INPUT  1 

<50 

<  T .  VA 

INl> 

<38 

INPUT  3 

<50 

<T.VA" 

IN3> 

<38 

OUTPUT2 

<50 

<t.va' 

OUT2> 

<77 

1  " 

COMMENTS  <77 


[TAB]  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  [ PF3 ]  QUIT 


ON  MATCH  UPDATE  VA_FN  VA_IN1  VA  IN2  VA  IN3  VA_OUTl  VAOUT2  VA_OUT3 
ON  MATCH  UPDATE  VA_COMl  VACOM2  VA_COMl 

.  * 

ENDCASE 
.  * 

DATA 

END 

* 

RUN 

GOTO  HULL2 
* 

HULL2C 

* 

MODIFY  FILE  VESSAUTO 
CRTFORM  LINE  1 


CHG  SPECIFICATIONS  (VASPEC  SEGMENT) 


<77  |  " 

TYPE 
SUBTYPE 
<77  I" 


<16  <  VS_TYP  <77 
<16  <  VS  STYP  <77 


B  -  250- 1 1 


CHG  LITERATURE  REFERENCE  (LITREF  SEGMENT) 


"|  <77  I” 

”|  TYPE  <16  <  VS_TYP  <77  |" 

"|  SUBTYPE  <16  <  VS  STYP  <77 

"i  <77  r 

"I  <77  I” 

"|  <77  [" 

”|  <77  I" 

"|  <77 
"|  <77  |” 

<77  |" 

"|  <77  |" 

"|  <77  |" 

"|  <77  |" 

"|  <77  I" 


"|  (TAB)  NEXT  FIELD,  (RETURN)  TAKE  ACTION,  [ PF3 )  QUIT  |" 

■i _ _ _ _ _ _  n 


MATCH  VS_TYP  VSSTYP 
ON  NOMATCH  REJECT 
ON  MATCH  GOTO  LITA2 

.* 

CASE  LITA2 


CRTFORM  LINE  1 

N 


1 

CHG 

LITERATURE  REFERENCE  (LITREF  SEGMENT) 

1  " 
M 

1  <77 

1  REF 

1" 

NUMBER  <17  <  REF 

NUM  <77  | " 

I  <77 

1" 

|  <33 

(  PRESS  RETURN  ) 

<77  1" 

MATCH  REFNUM 
ON  NOMATCH  REJECT 
ON  MATCH  CRTFORM 
"|  <77  I" 

"I 

<77  |" 

"j  <8  <T.REF_DESC>  <77 
"|  <77  I" 

<77  |" 

"|  <77  |" 

"|  <77  I" 

"|  <77  |" 


REFERENCE  DESCRIPTION 


fl 


(TAB)  NEXT  FIELD,  [RETURN)  TAKE  ACTION,  ( PF3 )  QUIT 


ON  MATCH  UPDATE  REFDESC 
GOTO  LITA2 
.  * 

ENDCASE 
.  * 

DATA 

END 

.* 

-RUN 

-GOTO  TWO 


-THREE 


-CRTFORM  LINE  1 


It 


-"I 

II 

DELETE  SYSTEMS  OPTIONS  FOR  VESSAUTO  FILE  -  OEB250 

] 

~"l 

-"1 

-Ml 
»»  1 

OPTIONS  LIST 

i 

1 

-  1 
-"1 

U] 

DEL  MAIN  SEGMENT 

! 

1 

1 

[2] 

DEL  DESIGN  SEGMENT 

1 

-”l 

[3] 

DEL  AMV  REFERENCES 

1 

-"1 

(4] 

DEL  LITERATURE  REFS 

1 

-’•1 
«  1 

(5] 

FM  DIRECTORY 

1 

1 

-"1 

OPTION  — >  <40PTI0N 

1 

-"1 

it 

<77  j" 

-"1 

it 

(tab: 

I  NEXT  FIELD,  (RETURN)  TAKE  ACTION,  [ PF3 ]  QUIT  | 

-  * 

-IF 

40PTI0N 

EQ 

1 

GOTO 

MAIN 3 ; 

-IF 

&OPTION 

EQ 

2 

GOTO 

HULL3; 

-IF 

&OPTION 

EQ 

3 

GOTO 

AMV  3  ; 

-IF 

&OPTION 

EQ 

4 

GOTO 

LIT3; 

-IF 

&OPTION 

EQ 

5 

GOTO 

TOP; 

-GOTO  THREE 


_  * 

-MAIN3 


_  * 

MODIFY  FILE  VESSAUTO 

CRTFORM  LINE  1 

it 

"i 

it 

DELETE 

MAIN  SYSTEM  (MAIN  SEGMENT)  | 

"|  <77  |" 

" |  TYPE 

<10  <  VS  TYP  <77 

1" 

" |  SUBTYPE 

<10  <  VS  STYP  <77 

1" 

Hi  <77  r 

<33  (  PRESS  RETURN 

11 

)  <77  | 

11 

MATCH  VS  TYP  VS  STYP 

ON  NOMATCH 

REJECT 

ON  MATCH  CRTFORM 

"1  <77  |" 

"  I 

COMMENTS  <77 

(A 

> 

Q 

V 

TT 

V 

s 

COM1  <77  | 

n 

"I  <4  <D . VS 

COM2  <77  | 

r 

"|  <4  <D . VS 

COM3  <77  | 

r 

"|  <77  |" 

"|  <77  |" 

<77  |" 

11 

(TAB)  NEXT  FIELD ,  {RETURN]  TAKE  ACTION,  [  PF3  ]  QUIT 


r-  «-  <■  v  v  w  ->  ->  ->  'J. ;v  .v  .v^v.VT.V  V  V\~  ».»«.*<’ 


-HULL3 
.  * 

-CRTFORM  LINE  1 


"srvrx’*'v 


v.  «r.  v.rv_  J 


SYS  DESIGN  DEL  OPTIONS  FOR  VESSAUTO  FILE  -  OEB250 


-"I 


OPTIONS  LIST 

(1!  DEL  SYS  DESIGN 

(2]  DEL  SYS  DESCRIPTION 

(3]  DEL  SYS  SPECIFICATIONS 

(4]  FH  DIRECTORY 

OPTION  — >  C40PTI0N 


<77  |" 
<77  I" 
<77  I" 


(TAB]  NEXT  FIELD,  (RETURN!  TAKE  ACTION,  ( PF3 ]  QUIT 


-IF  (OPTION  EQ  1 
-IF  (OPTION  EQ  2 
-IF  (OPTION  EQ  3 
-IF  (OPTION  EQ  4 
-GOTO  HULL3 
.  * 

-HULL3A 
.  • 


GOTO  HULL3A; 
GOTO  HULL3B ; 
GOTO  HULL3C; 
GOTO  THREE; 


MODIFY 

FILE 

VESSAUTO 

CRTFORM 

W 

LINE 

1 

"1 

w 

DEL  SYS  DESIGN  (WTSYS  SEGMENT)  | 

"|  <77 
” |  TYPE 

1" 

<16 

<  VS  TYP  <77  ) " 

" 1  SUBTYPE 

<16 

<  VS  STYP  <77 

"  |  <77 

1  " 

"|  <77 

1  " 

"  |  <77 

1  " 

"  |  <77 

1  " 

"|  <77 

1  " 

"|  <77 

1  " 

"|  <77 

1  " 

"  |  <77 

1  " 

”|  <77 

1  " 

"|  <77 

1  " 

"|  <77 

1  " 

"1 

(TAB] 

NEXT  FIELD,  ( RETURN J  TAKE  ACTION,  ( PF3  J  QUIT  | 

W 

MATCH  VS_TYP  VS_STYP 
ON  NOMATCH  REJECT 
ON  MATCH  GOTO  HULLA3A 

CASE  HULLA3A 

.* 

CRTFORM  LINE  1 


DEL  DESIGN  ( WTSYS  SEGMENT) 


B-250-16 


& 


I 


i 


> 


‘.•j 

vl 

3 


i 


4 


>>:>:  x->v-v 


I 


"|  <77  I M 

" |  MFR/DESIGNER 
” |  MFR  NUMBER 

"|  <77  |" 

MATCH  MFR_ID  MFR  NO 
ON  NOMATCH  REJECT 
ON  MATCH  CRTFORM 


<4  <D.MFR_COMl  <77 
<4  <D . MFR_COM2  <77 
<4  <D.MFR  COM3  <77 
<77  |" 

<77  |  " 

<77  ]  " 

<77  |  " 

<77  |" 

<77  I  " 


<16  <  MFRID 
<16  <  MFR  NO 


<32  (PRESS  RETURN)  <77  |" 


COMMENTS  <77 


(TAB)  NEXT  FIELD,  (RETURN]  TARE  ACTION,  ( PF3 )  QUIT 


ON  MATCH  DELETE 
GOTO  HU L LA 3 A 

—  * 

ENDCASE 
-  * 

DATA 
END 
_  • 

-RUN 

-GOTO  HULL3 
_  * 

-HULL3B 

_* 

MODI FY  FILE  VESSAUTO 
CRTFORM  LINE  1 


MATCH  VSTYP  VS_STYP 
ON  NOMATCH  REJECT 
ON  MATCH  GOTO  HULLA3B 

.* 

CASE  HULLA3B 

.* 

CRTFORM  LINE  1 


B-250-17 


'  v.v.y.v 


•’  1 
II 

DEL  DESCRIPTION  ( VADESC  SEGMENT) 

"1 

MFR/DES IGNER 

<16 

<  MFR  ID  <77  1" 

"  1 

MFR  NUMBER 

<16 

<  MFR  NO  <77 

"1 
II  _ 

<30  (  PRESS 

RETURN  : 

1  <77  T" 

MATCH  MFR  ID  MFR  NO 
ON  nomatCh  REJECT 
ON  MATCH  CONTINUE  TO  VA_FN 
ON  NOMATCH  REJECT 
ON  MATCH  CRTFORM 


" |  FUNCTION 

<12 

<D.VA 

FN> 

<38 

INPUT 

1 

<50 

<D.VA 

INl> 

<77 

" |  INPUT  2 

<12 

<D.VA' 

IN2> 

<38 

INPUT 

3 

<50 

<D.VA“ 

IN3> 

<77 

" |  OUTPUT  1 

<12 

<d.va' 

’OUTl  > 

<38 

OUTPUT2 

<50 

<  D . VA- 

OUT2> 

<77 

" 1  OUTPUT  3 

<12 

<D.VA' 

OUT3> 

<77 

1" 

"|  <77  |" 

"|  COMMENTS  <77  |" 

"|  <77  I" 

"|  <4  <D.VA_COMl>  <77 
"|  <4  <D.VA_COM2>  <77  |" 

"|  <4  <D.VA  COM3>  <77  |  " 

"|  <77  I" 


[TAB]  NEXT  FIELD,  [RETURN)  TARE  ACTION,  [ P F 3 ]  QUIT 


ON  MATCH  DELETE 

_  * 

ENDCASE 
_  * 

DATA 
END 
-  * 

-RUN 

-GOTO  HULL 3 
-* 

-HULL3C 

_  * 

MODIFY  FILE  VESSAUTO 
CRTFORM  LINE  1 


DEL  SYS  SPECIFICATIONS  (VASPEC  SEGMENT) 


"i  <77  r 

"|  TYPE  <16  <  VS_TYP  <77 

"|  SUBTYPE  <16  <  VS_STYP  <77 

"|  <77  I" 

"|  <77  |" 

"i  <77  r 
"i  <77  r 
"|  <77  I" 

"I  <77  |" 

"|  <77  |" 

"|  <77 

"i  <77  r 

<77  I" 

"|  <77  I" 

n _ _ _ _ _ _ _ _ _ _ _  . _ _ _ " 

"|  [TAB]  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  [ Pr 3 ]  QUIT  I" 


MATCH  VS  TYP  VS_STYP 
ON  NOMATCH  REJECT 
ON  MATCH  GOTO  HULLA3C 


B- 250- 18 


WA'A’Jh'.V^J/AIVJ 


CASE  HULLA3C 
.  * 

CRTFORM  LINE  1 


”1 

n 

CHG 

-  SPECIFICATIONS 

(VASPEC  SEGMENT) 

1  " 

”1 

MFR/DES IGNER 

<16  < 

MFR  ID  <77 

1  " 

"  | 

MFR  NUMBER 

<16  < 

MFR  NO  <30 

(  PRESS  RETURN  )  <77  | " 

H  _ 

_ _ 

it 

MATCH  MFR  ID  MFRNO 
ON  NOMATCH  REJECT 
ON  MATCH  CONTINUE  TO  VA_COST 
ON  NOMATCH  REJECT 
ON  MATCH  CRTFORM 


<20  < D . VA  COST> 


COST 
<77  |  " 
<77  |" 
<77  |  " 
<77  I  " 


|  <4  <D.SPEC_COMl>  <77 
|  <4  <D.SPEC_COM2>  <77 
|  <4  <0 . SPEC  COM3>  <77 
I  <77  |" 

I  <77  I" 


<38  EFF  RATING  <60  <D.VA  EFF  RAT> 


COMMENTS  <77 


<77  |" 


"|  [TAB]  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  [ PF 3 ]  QUIT 

MATCH  VS  TYP  VS  STYP 
ON  NOMATCH  REJECT 
ON  MATCH  GOTO  LITA3 

.  * 

CASE  LITA3 
.  * 

CRTPORM  LINE  1 

r* _ _ _ 

"|  DEL  LITERATURE  REFERENCE  (LITREF  SEGMENT) 

II  ^  __ 


I  <77  |" 

|  REF  NUMBER  <17  <  REF_NUM  <77  | 

I  <77  r 

|  <33  (  PRESS  RETURN  )  <77  |" 


MATCH  REF  NUM 
ON  NOMATffH  REJECT 
ON  MATCH  CRTFORM 


REFERENCE  DESCRIPTION 


"i  <77  r 

"  I  <8  <D.REF_DESC  <77 
"|  <77  |H 
°|  <77  I" 

M|  <77  |" 

"|  <77  I" 

"|  <77  I" 


[TAB]  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  [ PF3 ]  QUIT 


ON  MATCH  DELETE 
GOTO  LITA3 
* 

ENDCASE 

* 

DATA 

END 

* 

RUN 

GOTO  THREE 


RUN 

GOTO  TOP 


EX  OEB200 
END 
* 

RUN 

GOTO  TOP 


B-250-21 


WWiU 


<.v.v.v.y 


FILE  MAINTENANCE  ROUTINE  FOR  MFRREF  FILE  -  OEB260 


DESIGNED  FOR 
DESIGNED  BY 
DATE  LAST  REV 


USCG  R(D  CENTER,  OCEAN  ENGINEERING  BRANCH 
M.  J.  STEVENS  (VTC) 

4/20/87 


-TOP 

-DEFAULTS  (OPTION-O 
-CRTFORM  LINE  1 


FILE  MAINTENANCE  ROUTINES  FOR  MFRREF  FILE  -  OEB260 


MAINTENANCE  OPTIONS  LIST 

( 1 ]  ADD  MANUFACTURER 
{ 2  ]  CHANGE  MFR  DATA 
[ 3 ]  DELETE  MANUFACTURER 
(4|  EXIT  MFRREF  FILE 

OPTION  -->  < (OPTION 


•"|  <77 
■"|  <77 
■"|  <77 
•"|  <77 


[ TAB )  NEXT  FIELD,  [RETURN)  TAKE  ACTION,  [ PF3 ]  QUIT 


-IF  (OPTION  EQ  1  GOTO  ONE; 
-IF  (OPTION  EQ  2  GOTO  TWO; 
-IF  (OPTION  EQ  3  GOTO  THREE; 
-IF  (OPTION  EQ  4  GOTO  FOUR; 
-GOTO  TOP 


MODIFY  FILE  MFRREF 
CRTFORM  LINE  1 


ADD  NEW  MANUFACTURER  OR  DESIGNER 


MANUFACTURER'S  ID  <35  <  MFR  ID 


NAME  OF  FIRM 
ADDRESS  LINE  I 
ADDRESS  LINE  2 
ADDRESS  LINE  3 


<35  <  MFR  NAME 
<35  <  MFR'ADDl 
<35  <  NFR~ADD2 
<35  <  HFR~ADD3 


PHONE  NUMBER 


<35  <  MFR  PHONE 


REPRESENTATIVE 


<35  <  MFR  REP 


(TAB)  NEXT  FIELD,  (RETURN)  TAKE  ACTION,  { PF3 )  QUIT 


MATCH  MFR  ID 


B-260-1 


4 


ON  MATCH  REJECT 
ON  NOMATCH  INCLUDE 
DATA 
END 
* 

RUN 

GOTO  TOP 
* 

TWO 

* 

MODIFY  FILE  MFRREF 
CRTFORM  LINE  1 


CHANGE  DATA  ON  MANUFACTURER  OR  DESIGNER 


<22  ENTER  MANUFACTURER'S  ID  <47  <  MFR  ID  <77 

<77  r 

<30  (  PRESS  RETURN  )  <77 


MATCH  MFR  ID 
ON  nomatCh  REJECT 
ON  MATCH  CRTFORM 
"|  <77  |" 

"|  <10  NAME  OF  FIRM 
"|  <10  ADDRESS  LINE  1 
fl|  <10  ADDRESS  LINE  2 
n|  <10  ADDRESS  LINE  3 
"|  <77  I" 

n|  <10  PHONE  NUMBER 
"|  <77  I" 

"|  <10  REPRESENTATIVE 


<35  <T.MFR_NAME> 
<35  <T.MFR  ADD1 > 
<35  <T.MFR~ADD2> 
<35  <T.MFR~ADD3> 

<35  <T.MFR_PHONE> 

<35  <T . MFR  REP> 


<77  | 
<77  | 
<77  | 
<77  I 


[TAB]  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  [ PF3 ]  QUIT 


ON  MATCH  UPDATE  MFRNAME  MFR  ADD1  MFR  ADD 2  MFR  ADD 3  MFR  PHONE  MFR  REP 
DATA  ~ 

END 

* 

RUN 

GOTO  TOP 
* 

THREE 
.  * 

MODIFY  FILE  MFRREF 
CRTFORM  LINE  1 


1 

DELETE 

MANUFACTURER  OR 

DESIGNER  I 

|  <22 

ENTER  MANUFACTURER'S 

ID  <47  <  MFR  ID 

<77  |  " 

1  <77 

1" 

|  <30 

(  PRESS  RETURN  ) 

<77  |" 

MATCH  MFR  ID 
ON  NOMATCH  REJECT 
ON  MATCH  CRTFORM 

"|  <77  I" 

" |  <10  NAME  OF  FIRM 

M|  <10  ADDRESS  LINE  1 

n|  <10  ADDRESS  LINE  2 

"|  <10  ADDRESS  LINE  3 

"|  <77  |" 

"|  <10  PHONE  NUMBER 


<35  <D.MFR_NAME>  <77  | 
<35  <D.MFR_ADD1>  <77  | 
<35  <D . MFR_ADD2>  <77  | 
<35  <D.MFR_ADD3>  <77  | 

<35  <D . MFR  PHONE>  <77  I 


B-260-2 


<35  < D . MFR  REP> 


<77 


<77 

"|  <10  REPRESENTATIVE 

"|  <77 


B-260-3 


.1,v/>,Y1v.v1v,v.\’VV.V.V-; V vv.“ X.'  X.*V.V'«  V- 


_  * 
_  ★ 


FILE  MAINTENANCE  ROUTINE  FOR  VESSAUTO  FILE  -  OEB270 


_  * 


-•DESIGNED  FOR 

:  USCG  R&D  CENTER,  OCEAN  ENGINEERING  BRANCH 

* 

-•DESIGNED  BY 

:  M. 

J.  STEVENS  { VTC ) 

★ 

-*DATB  LAST  REV 

:  4/20/87 

* 

-  * 

-TOP 

-DEFAULTS  &OPTION-0 

-CRTFORM  LINE  1 

n 

II 

-"1 

it 

FILE  MAINTENANCE  ROUTINES  FOR  OEBREF  FILE  -  OEB270 

1  " 

II 

1 

-"1 

-"1 

MAINTENANCE  OPTIONS  LIST 

1  " 

1  " 

-  1 

1 

[1]  ADD  OEB  REFERENCE 

1  " 

1 

(2]  CHG  OEB  REFERENCE 

I  n 

-”l 

{ 3 ]  DEL  OEB  REFERENCE 

1  ,f 

-"1 

[ 4]  EXIT  OEBREF  FILE 

1  " 

-  i 

1 

OPTION  — >  <  40PTI0N 

-"|  <77  |" 

1 

-”i  <77  r 

-”|  <77  1" 

tf 

II 

1 

H 

(TAB 

NEXT  FIELD,  (RETURN]  TAKE  ACTION,  ( PF3 ]  QUIT 

1  " 
It 

«  * 

-IF  &OPTXON  EQ  1 

GOTO 

ONE ; 

-IF  SOPTION  EQ  2 

GOTO 

TWO; 

-IF  S.OPTION  EQ  3 

GOTO 

THREE ; 

-IF  40PTION  EQ  4 

GOTO 

FOUR ; 

-GOTO  TOP 

-ONE 

-CRTFORM  LINE  I 

N 

II 

-"1 

II 

ADD  OPTIONS  FOR  OEBREF  FILE  -  OEB270 

1” 

n 

OPTIONS  LIST 

1  M 

1  n 

[l] 

ADD  MAIN  SEGMENT 

1 

1  11 

[2] 

ADD  AUTHOR  SEGMENT 

1  ” 

[3] 

ADD  REF  KEYWORDS 

1  " 

[4] 

ADD  ABSTRACT  LINES 

1  H 

[5] 

FM  DIRECTORY 

1  ” 

v, 

V, 

V 

• 


-"|  OPTION  — >  <  fcOPTION 

-"I 

-"|  <77 
-”|  <77  |" 

-"|  <77  |" 


(TAB]  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  [ PF3 ]  QUIT 


-IF  SOPTION  EQ  1  GOTO  MAINl ; 


B-270-1 


iff  iVi  iih  n 


I 

> 

« 


\r  v  -  tv 


v.- v.nrfsrr vjvta  /.  y.  A' W 


V  V  V.‘  \v  ->  ->  ->  ’> -> -■ 


Sa 


-IF 

&OPTION 

EQ 

2 

GOTO 

HULL1 

-IF 

SOPTION 

EQ 

3 

GOTO 

AMV1  ; 

-IF 

40PTI0N 

EQ 

4 

GOTO 

LITl ; 

-IF 

&OPTION 

EQ 

5 

GOTO 

TOP; 

-GOTO  ONE 
.* 

-MAIN1 
_  * 

MODIFY  FILE  OEBREF 
CRTFORM  LINE  1 


ADD  NEW  REFERENCE  (MAIN  SEGMENT) 


"( 

It 

REF  NUM 

<14 

< 

REF_ 

NUM 

<77 

r 

"1 

<77  |  " 

"1 

REP  TITLE 

<14 

< 

REF 

TITLE 

<77 

i" 

"1 

SOURCE 

<14 

< 

REF 

SOURCE 

<77 

i " 

"1 

REPORT  NO 

<14 

< 

REF 

REP  NO 

<77 

r 

"1 

JOURNAL  VOL 

<14 

< 

REF 

JN  VOL 

<77 

i" 

"  1 

PUB  DATE 

<14 

< 

REF 

PUB  DT 

<77 

i " 

"1 

<77  |  " 

"  | 

<77  |" 

"1 

<77 

”1 

<77  I  " 

"1 

<77  |  " 

"1 
It  ^ 

<77  |" 

"I 


(TAB |  NEXT  FIELD,  ( RETURN )  TAKE  ACTION,  ( PF3 ]  QUIT 


MATCH  REFNUM 
ON  MATCH  REJECT 
ON  NOMATCH  INCLUDE 
DATA 
END 
.* 

-RUN 

-GOTO  ONE 
.  * 

-HULL! 

.* 

MODIFY  FILE  OEBREF 
CRTFORM  LINE  1 


ADD  REF  AUTHORS  (AUTHOR  SEGMENT) 


<16  <  REF  NUM  <77 


(TAB)  NEXT  FIELD,  (RETURN]  TAKE  ACTION,  ( PF3 )  QUIT 


3 


A 

JSi 

I 

$ 

v 


B-270-2 


i 


MATCH  R£F_NUM 
ON  NOMATCH  REJECT 
ON  MATCH  GOTO  HULLAlA 

* 

CASE  HULLAlA 
* 

CRTFORM  LINE  1 


ADD  AUTHORS  (AUTHOR  SEGMENT) 


"1 

<77  |  " 

"1 

LAST  NAME 

<20 

< 

AUTH 

LN 

<77 

"  1 

<77 

"1 

FIRST  NAME 

<20 

< 

AUTH 

FN 

<77 

"1 

MIDDLE  INITIAL 

<20 

< 

AUTH 

MI 

<77 

"|  <77  | B 
"|  <77  j” 

"i  <77  r 

"|  <77  I" 

"|  <77  |" 

"|  <77  |" 

"i  <77  r 
"i  <77  r 

"|  <77  |" 

_ _  _  _ _ ______ _ _  _  _  _ _ M 

"|  (TAB)  NEXT  FIELD,  (RETURN)  TAKE  ACTION,  ( P F 3  ]  QUIT  |" 

if  it 


MATCH  AUTH_LN  AUTHFN  AUTH_MI 
ON  MATCH  REJECT 
ON  NOMATCH  INCLUDE 
GOTO  HULLAlA 

_  * 

ENDCASE 
_  * 

DATA 
END 
_  * 

-RUN 

-GOTO  ONE 
_  * 

-AMV1 

_  *  j 

MODIFY  FILE  OEBREF  1 

CRTFORM  LINE  1  J 


"1 

II 

ADD  REF 

KEYWORDS  (AMVREF  SEGMENT)  | 

"1 

<77 

1" 

"1 

REF 

NUMBER  <16  <  REF  NUM 

<77  |  " 

"1 

<77 

r 

"1 

<77 

i H 

"1 

<77 

i " 

"1 

<77 

i " 

"1 

<77 

i " 

"1 

<77 

i " 

"1 

<77 

i " 

"1 

<77 

i " 

"  1 

<77 

i " 

"1 

<77 

r 

"  1 

<77 

t " 

"1 

<77 

i" 

If  _ 

(TAB)  NEXT  FIELD,  (RETURN)  TAKE  ACTION,  ( PF3  J  QUIT 


B-270-3 


MATCH  R£F_NUM 
ON  NOMATCH  REJECT 
ON  MATCH  GOTO  AMVAl 

* 

CASE  AMVAl 
* 

CRTFORM  LINE  1 

” _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ M 

"|  ADD  REF  KEYWORDS  (AMVREF  SEGMENT)  |" 

» _  _  ii 


<77 

1  " 

KEY 

WORD  NO 

<20  < 

KEY_WD_NO 

<77 

<77 

1" 

KEYWORD 

<20  < 

KEY_WORD 

<77 

<77 

r 

<77 

i " 

<77 

i " 

<77 

r 

<77 

i " 

<77 

i " 

<77 

i " 

<77 

i " 

<77 

i " 

<77 

i " 

(TAB)  NEXT  FIELD,  (RETURN)  TAKE  ACTION,  ( PF3 ]  QUIT 


MATCH  KEY_WD_NO 
ON  MATCH  REJECT 
ON  NOMATCH  INCLUDE 
GOTO  AMVAl 
_  * 

ENDCASE 
_  * 

DATA 

END 

-RUN 

-GOTO  ONE 


-LIT1 
_  * 

MODIFY  FILE  OEBREF 
CRTFORM  LINE  1 


ADD  ABSTRACT  LINES  (ABSTRACT  SEGMENT) 


"|  <77  I" 

"|  REF  NUMBER  <16  <  REF  NUM  <77  |" 
"|  <77  |" 

"|  <77 
"|  <77  I" 

"|  <77  |" 

"i  <77  r 
"i  <77  r 

"|  <77  )" 

"|  <77  J" 

"|  <77  I" 

"|  <77 
"|  <77  |" 

"|  <77 


B-270-4 


IjPm 


MATCH  ABSLNNO 
ON  MATCH  REJECT 
ON  NOMATCH  INCLUDE 
GOTO  LITA1 

.* 

ENDCASE 
.  * 

DATA 

END 

.* 

-RUN 

-GOTO  ONE 


-TWO 

.**************4 

-CRTFORM  LINE  1 


-"I 


CHANGE  REFERENCE  OPTIONS  FOR  OEBREF  FILE  -  OEB270 


-"I 


-"I 

-"I 

-"I 

-"I 

-"I 

-"I 


OPTIONS  LIST 

(1]  CHG  MAIN  SEGMENT 

(2]  CHG  REF  KEYWORDS 

(3]  CHG  ABSTRACT  LINES 

(4]  FM  DIRECTORY 

OPTION  — >  C40PTI0N 


<77 

<77 


I 


b 

'i 


'3 


ft 

li 

i 

a 

t 

» 


[TAB)  NEXT  FIELD,  {RETURN]  TAKE  ACTION,  l Pr 3  J  QUIT 

ON  MATCH  UPDATE  REF_TITLE  REr_SOURCE  REF_REP_NO  REF_JN_VOL  REF_PUB_DT 
DATA 
END 
* 

-RUN 

GOTO  TWO 
* 

AMV2 

.* 

MODIFY  FILE  OEBREF 
CRTFORM  LINE  1 

"|  CHG  REF  KEYWORDS  (KEYWORD  SEGMENT) 


<77  |" 

REF  NUMBER 

<77  |" 

<77  |" 

<77 

<77  |  " 

<77  |" 

<77  |  " 

<77  |" 

<77  |" 

<77  |" 

<77  I" 

<77  I" 


<16  <  REF  NUM  <77  | 


B-270-6 


I  <77  | 


— 
'I  (TAB!  NEXT  FIELD,  (RETURN)  TAKE  ACTION,  [  PF3  ]  QUIT 


MATCH  REF  NUM 
ON  NOMAT^H  REJECT 
ON  MATCH  GOTO  AMV2 

* 

CASE  AMV2 
* 

CRTFORM  LINE  1 


CHG  REF  KEYWORDS  (KEYWORD  SEGMENT) 


"|  <77  |" 

"|  WORD  NO  <20  <  KEY  WD_NO  <77  (" 
"(  <77  I" 

"|  <33  (  PRESS  RETURN  )  <77  |" 


MATCH  KEYWDNO 
ON  NOMATCH  REJECT 
ON  MATCH  CRTFORM 

"i  <77  r 

"j  KEYWORD  <20  <T . KEY  WORD>  <77  |" 

"|  <77 
"|  <77  |" 

"|  <77  |" 

"|  <77  j" 

"|  <77  I" 

"|  <77 
"|  <77  |" 

tl _ _ _ _ _ _  — _ _ _ _ _ _ __ _ _ _ _ _ _  _ _ _ _ _ _ _  ___ _ H 

"|  (TAB]  NEXT  FIELD,  (RETURN)  TAKE  ACTION,  ( PF3 ]  QUIT 


ON  MATCH  UPDATE  KEY_WORD 
GOTO  AMV2 
* 

ENDCASE 

* 

DATA 
END 
.  * 

RUN 

GOTO  TWO 


LIT2 

* 

MODIFY  FILE  OEBREF 
CRTFORM  LINE  1 


CHG  ABSTRACT  LINES  (ABSTRACT  SEGMENT) 


(TAB)  NEXT  FIELD,  (RETURN]  TAKE  ACTION,  [PF3]  QUIT 


"I  <77  " 

"|  <77  |  " 
"|  <77  |  " 
"|  <77  p 


MATCH  REF_NUM 
ON  NOMATCH  REJECT 
ON  MATCH  GOTO  LITA2 

-  * 

CASE  LITA2 
.  • 

CRTFORM  LINE  1 


CHG  ABSTRACT  LINES  (ABSTRACT  SEGMENT) 


"|  LINE  NUMBER  <17  <  ABS_LN_NO  <77 
"|  <77  P 

” j  <33  (  PRESS  RETURN  )  <77  P 


MATCH  ABS_LN_NO 
ON  NOMATCH  REJECT 
ON  MATCH  CRTFORM 
”  |  <77  p 

"|  TEXT  <14  <T. ABS  TEXT>  <77 

"|  <77  P 

"|  <77 

"|  <77  P 

"|  <77  p 

"|  <77  p 

M|  <77  P 

"I  <77  p 


"|  (TAB]  NEXT  FIELD,  (RETURN)  TAKE  ACTION,  ( PF3 ]  QUIT 

tt _ _ _ _ _ _ _ _ _ — _ _  _  _  _ _ _ _ _  _ _ 

ON  MATCH  UPDATE  ABSTEXT 
GOTO  LITA2 
.  * 

ENDCASE 
.  * 

DATA 
END 
.  * 

-RUN 

-GOTO  TWO 


-THREE 

-a***************************************************************** 
_  * 

-CRTFORM  LINE  1 

_ _  _  _ _ ________________________________________ 

-"I  DELETE  REFERENCE  OPTIONS  FOR  OEBREF  FILE  -  OEB270 


OPTIONS  LIST 

(1}  DEL  MAIN  SEGMENT 

[2]  DEL  AUTHOR  SEGMENT 

[3]  DEL  REF  KEYWORDS 


B-270-8 


[4]  DEL  ABSTRACT  LINES 
[  5 ]  FM  DIRECTORY 


-"|  OPTION  — >  <  &OPTION 

I 

-"|  <77  |" 

<77  r 


[TAB]  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  [  PF3 ]  QUIT 


-IF 

40PTI0N 

EQ 

1 

GOTO 

MAIN3 

-IF 

&OPTION 

EQ 

2 

GOTO 

HULL3 

-IF 

&OPTION 

EQ 

3 

GOTO 

AMV3; 

-IF 

40PTI0N 

EQ 

4 

GOTO 

LIT3; 

-IF  &OPTION 
-GOTO  THREE 

EQ 

5 

GOTO 

TOP; 

-MAIN3 
_  * 

MODIFY  FILE  OEBREF 
CRTFORM  LINE  1 


”|  DELETE  REFERENCE  (MAIN  SEGMENT) 


"I  <77  |" 

"|  REF  NUMBER  <16  <  REF  NUM  <77  |" 
"|  <77  |" 

"|  <33  (  PRESS  RETURN  )  <77  |" 

W 


MATCH  REFNUM 
ON  NOMATCH  REJECT 
ON  MATCH  CRTFORM 
"|  <77  I" 

" |  REP  TITLE  <14 

"|  SOURCE  <14 

"|  REPORT  NO  <14 

"|  JOURNAL  VOL  <14 

"|  PUB  DATE  <14 
"|  <77  I" 

"|  <77  |" 

"|  <77  I" 


<D.REF_TITLE>  <77  |" 
<D.REF_SOURCE>  <77  |" 
<D.REF_REP_NO>  <77 
<D.REF_JN_VOL>  <77 
<D.REF_PUB_DT>  <77  |" 


"|  [TAB]  NEXT  FIELD,  [RETURN]  TAKE  ACTION, 

n  ^  _ 


[PF3]  QUIT 


ON  MATCH  DELETE 
DATA 
END 
_  * 

-RUN 

-GOTO  THREE 
_  * 

-HULL3 
_  * 

MODIFY  FILE  OEBREF 
CRTFORM  LINE  1 


DEL  REF  AUTHORS  (AUTHOR  SEGMENT) 


"|  <77  I” 

" |  REF  NUMBER  <16  <  REF_NUM  <77 

"|  <77  I" 


(TAB)  NEXT  FIELD,  [RETURN)  TAKE  ACTION,  [PF3]  QUIT 


II 

If 

II 

n 

it 

M 

•I 

M 

II 

II 

II 


<77 

<77 

<77 

<77 

<77 

<77 

<77 

<77 

<77 

<77 


H 


MATCH  REF_NUM 
ON  NOMATCH  REJECT 
ON  MATCH  GOTO  HULLA3A 

_  * 

CASE  HULLA3A 
—  • 

CRTFORM  LINE  1 

"|  DEL  AUTHOR  (AUTHOR  SEGMENT) 

—  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  —  •  —  —  — 

"|  <77  |" 

"|  LAST  NAME  <16  <  AUTH  LN  <77  |" 

" |  <77  I" 

"j  FIRST  NAME  <16  <  AUTH_FN  <77  |" 

"|  MIDDLE  INIT  <16  <  AUTHMI  <77  |" 

MATCH  AUTHLN  AUTHFN  AUTHMI 
ON  NOMATCH  REJECT 
ON  MATCH  CRTFORM 
"|  <77  |" 

"|  <77  |" 

”|  <77  |" 

"|  <77  I" 

<77  |" 

"|  <77  |" 

"|  <77  |" 

"|  <77  I" 

"I  [TAB]  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  [ P F 3 ]  QUIT 

W  _  __  ______  __  ___  __  _  _________ ,___  _  _  _  __  _  ______ .__  ___  __  „  „  _  _  _ 

ON  MATCH  DELETE 
GOTO  HULLA3A 

_  * 

ENDCASE 
_  * 

DATA 
END 
_  * 

-RUN 

-GOTO  THREE 


-AMV3 
_  * 

MODIFY  FILE  OEBREF 
CRTFORM  LINE  1 

"|  DEL  REF  KEYWORDS  (KEYWORD  SEGMENT) 

♦«_____  ________  _______  _________  _______________  ______  ______ 

"|  <77  |" 

"j  REF  NUMBER  <16  <  REF  NUM  <77  | " 


B-270-10 


V  V  W.V  'AV  v» 


<77 

1  " 

w 

<77 

1  " 

SJ 

<77 

1” 

<77 

1  " 

VJ 

SI 

<77 

r 

<77 

i " 

<77 

r 

Sj 

<77 

i " 

<77 

i” 

<77 

r 

<77 

i " 

•s 

<77 

i " 

n 


"I  [TAB]  NEXT  FIELD,  (RETURN]  TAKE  ACTION,  ( PF3 ]  QUIT 

_ _ _ _  _ _ _ _  — 

MATCH  REF_NUM 
ON  NOMATCH  REJECT 
ON  MATCH  GOTO  AMVA3 

* 

CASE  AMVA3 


CRTFORM  LINE  1 


DEL  REF  KEYWORDS  (KEYWORD  SEGMENT) 


I  <77  I" 

|  WORD  NO  <16  <  KEY  WD  NO  <77  | 
I  <77  I"  "  " 

|  <33  (  PRESS  RETURN  )  <77 


MATCH 

KEY  WD  NO 

ON  NOMATCH  REJECT 

ON  MATCH  CRTFORM 

"1  <77 

1  " 

"1  KEYWORD  <16  <  D . KEY  WORD 

"|  <77 

1" 

"|  <77 

1  " 

"  |  <77 

1  " 

"|  <77 

1  " 

"|  <77 

|" 

"  |  <77 

r 

"j  <77 

i " 

[TAB]  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  [ P F 3 ]  QUIT 


ON  MATCH  DELETE 
GOTO  AMVA3 
* 

ENDCASE 

* 

DATA 
END 
.  * 

-RUN 

GOTO  THREE 


MODIFY  FILE  OEBREF 
CRTFORM  LINE  1 


DEL  ABSTRACT  LINES  (ABSTRACT  SEGMENT) 


B-270-11 


a*  v.w.w*  v.-r 


(TAB)  NEXT  FIELD,  (RETURN)  TARE  ACTION,  (PF3)  QUIT 


MATCH  REF  NUM 

ON  nomatCh  REJECT 

" 

ON  MATCH  GOTO  LITA3 

is 

_  * 

r 

CASE  LITA3 

jS 

CRTFORM  LINE  1 

It 

"  1 

DEL  ABSTRACT  LINES  (ABSTRACT  SEGMENT) 

i"  s 

n 

"|  <77  |" 

1 

” |  LINE  NO  <14  <  ABS 

LN  NO  <77  |  " 

< 

"|  <77  |" 

(JS 

;  "1  <33  (  PRESS  RETURN  ) 

<77  |- 

_ - 

MATCH  ABS  LNNO 
on  nomatCh  REJECT 
ON  MATCH  CRTPORM 

"|  <77 

"|  TEXT  <D. ABS_TEXT  <77 
"|  <77  I" 

"|  <77  |- 
"|  <77  I" 

"|  <77  )" 

"  |  <77 
"|  <77  I" 

"I  <77  |" 


[TAB]  NEXT  FIELD,  ( RETURN J  TAKE  ACTION,  [ PF3 1  QUIT 


L§ 


■  s"  s’V  -. 


•T"*T^ ”-"  v" “,v.v.v.v*"^.w vvvvv'j- ■>. 'j/»;v 

‘v 


* 

S'O 


_  A 

_  * _ 

MTD  SYSTEM  REP  DIRECTORY  -  OEB300 

-•DESIGNED 

FOR 

:  USCG  RSD  CENTER,  OCEAN  ENGINEERING  BRANCH 

-•DESIGNED 

BY 

:  M.  J.  STEVENS  ( VTC ! 

-*DATE  LAST 

REV 

:  4/20/87 

* 

-TOP 

-DEFAULTS  SOPTION-O 
-CRTFORM  LINE  1 

_ « _  _  _ _  'i 


MARINE  TECHNOLOGY  DATABASE  REP  DIRECTORY  -  OEB300 


__  n _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ it 


-"1 

1 

DIRECTORY  OPTIONS 

1 

i 

-"1 

(11 

HULL  CONFIGURATIONS 

1 

1 

-”l 

(2J 

PROPULSION  SYSTEMS 

1 

-"1 

[3] 

PROPULSOR  SYSTEMS 

1 

-"1 

[4] 

WEIGHT  HANDLING 

1 

1 

[5] 

VESSEL  AUTOMATION 

1 

-"1 

[6] 

MANUFACTURERS 

! 

-"1 

[7] 

OEB  REFERENCES 

1 

-"1 
_  M  1 

(8] 

MASTER  DIRECTORY 

1 

-  1 

-"1 

-"1 

n 

OPTION  — >  CiOPTION 

1 

1 

1 

if 

[TAB]  NEXT  FIELD 

,  [RETURN)  TAKE  ACTION,  [ PF3 )  QUIT 

1 

-  * 


-IF 

SOPTION 

EQ 

1 

GOTO 

ONE; 

-IF 

SOPTION 

EQ 

2 

GOTO 

TWO; 

-IF 

SOPTION 

EQ 

3 

GOTO 

THREE; 

-IF 

SOPTION 

EQ 

4 

GOTO 

FOUR ; 

-IF 

SOPTION 

EQ 

5 

GOTO 

FIVE; 

-IF 

SOPTION 

EQ 

6 

GOTO 

SIX; 

-IF 

SOPTION 

EQ 

7 

GOTO 

SEVEN; 

-IF 

SOPTION 

EQ 

8 

GOTO 

EIGHT; 

-GOTO  TOP 

_  * 

-ONE 
_  * 

EX  OEB310 
END 
_  * 

-RUN 

-GOTO  TOP 
_  * 

-TWO 
_  * 

EX  OEB320 
END 


-RUN 

-GOTO  TOP 
_  * 

-THREE 
_  * 

EX  OEB330 
END 


B-300-1 


\  \  •-  •>. 


s.  ■.  '  •.  \  \  •.  V 


-RUN 

-GOTO  TOP 


EX  OEB340 
END 
.  * 

-RUN 

-GOTO  TOP 


EX  OEB350 
END 
.  * 

-RUN 

-GOTO  TOP 


EX  OEB360 
END 
_  * 

-RUN 

-GOTO  TOP 
_  * 

-SEVEN 
_  * 

EX  OEB370 
END 
_  * 

-RUN 

-GOTO  TOP 
_  * 

-EIGHT 
-  * 

EX  OEBOIO 
END 
_  * 

-RUN 

-GOTO  TOP 


B-300-2 


AD-A193  92* 
UNCLASSIFIED 


SUAVE V  OF  TECHNOLOGY  WITH  POS SIDLE  APPLICATIONS  TO 
UNITED  STATES  COAST  GU.  .  <U)  COAST  GUARD  RESEARCH  AND 
DEVELOP RENT  CENTER  GROTON  CT  S  ALLEN  ET  AL.  SEP  D 
CG-D-M-DG-VOL-3  F/G  12 


3/4 


M 


NL 


I*"* 


IF  &OPTION  EQ  2  GOTO  HULL1 ; 
IF  SOPTION  EQ  3  GOTO  TOP; 
GOTO  ONE 

• 

MAIN1 

* 

OFFLINE  CLOSE 
ONLINE 
END 
* 

CRTFORM  LINE  1 


|  ALL  REPORTS  WILL  OUTPUT  TO  SCREEN 


PRESS  RETURN  TO  CONTINUE  C&OPTION 


RUN 

GOTO  ONE 
* 

HULLl 

* 

OFFLINE 

END 

* 

CRTFORM  LINE  1 


|  ALL  REPORTS  WILL  OUTPUT  TO  PRINTER  |" 


PRESS  RETURN  TO  CONTINUE  <*OPTION 


-RUN 

GOTO  ONE 


HULLCNFG  FILE  REPORT  OPTIONS  -  OEB310 


OPTIONS  LIST 

[1]  MAIN  SEGMENT  REPORT 

[2]  HULL  SEGMENT  REPORTS 


B-310-2 


[3]  AMV  REFERENCE  REPORT 
(41  LITERATURE  REF  REPORT 
(5)  REPORT  DIRECTORY 


<77 
-"|  <77 


OPTION  — >  <&OPTION 


ft 


H 


( TAB ]  NEXT  FIELD,  (RETURN)  TAKE  ACTION,  (PF3)  QUIT  |" 


-IF 

SOPTION 

EQ 

1 

GOTO 

MAIN2 

-IF 

SOPTION 

EQ 

2 

GOTO 

HULL2 

-IF 

&OPTION 

EQ 

3 

GOTO 

AMV2; 

-IF 

SOPTION 

EQ 

4 

GOTO 

LIT2 ; 

-IF 

SOPTION 

EQ 

5 

GOTO 

TOP; 

-GOTO  TWO 
-  * 

-MAIN2 

_* 

TABLE  FILE  MULLCNFG 
HEADING  CENTER 

"HULLCNFG  FILE  TYPES/SUBTYPES  AND  GENERAL  COMMENTS 

M  If 

PRINT  HULLTYP  AS  'TYPE'  OVER  HULL_STYP  AS  'STYP'  SKIP-LINE  OVER 
HULLCOMl  AS  'COMM'  OVER  HULL  COM2  AS  "  OVER  HULLCOM3  AS  " 

BY  HULLTYP  NOPRINT 
BY  HULLSTYP  NOPRINT 
END 
_  * 

-RUN 

-GOTO  TWO 

-HULL2 
_  * 

-CRTFORM  LINE  1 

_n _ ____________________________________________________________________________ _ n 

-”|  HULL  DESIGN  REP  OPTIONS  FOR  HULLCNFG  FILE  -  OEB310  |" 


-"|  OPTIONS  LIST 

-"I 

-"j  (1)  HULL  DESIGN  REPORT 

-"|  [21  HULL  DESCRIPTION  REPORT 

-"|  (31  HULL  SPECIFICATIONS  REPORT 

-H|  (4]  RIDE  CONTROL  SPECS  REPORT 

-"|  (5]  RETURN  TO  MENU 

-"I 

-"j  OPTION  — >  <SOPTION 

-"I 

-Mj  <77  I" 

-"|  <77  I" 


-"1 

t» 

[TAB] 

NEXT  FIELD,  [RETURN]  TAKE  ACTION,  [ PF3 ]  QUIT  | 

_  * 

-ir 

SOPTION 

EQ 

1 

GOTO 

HULL2A; 

-IF 

SOPTION 

EQ 

2 

GOTO 

HULL2B; 

-IF 

SOPTION 

EQ 

3 

GOTO 

HULL2C ; 

-IF 

SOPTION 

EQ 

4 

GOTO 

HULL2D; 

-IF 

SOPTION 

EQ 

5 

GOTO 

TWO; 

B-310-3 


$ 

if 

s 


1 

$ 


GOTO  HULL2 

* 

HULL2A 

* 

CRTFORM  LINE  1 


-"1 

M 

PARTIAL  OR  FULL  REPORT  SELECTION  OPTIONS 

I 

-”l 

<77 

1" 

-”l 

[1]  ALL  DESIGNS  IN  HULLCNFG  FILE 

<77  |" 

-”| 

[2]  DESIGNS  ASSOCIATED  WITH  SPECIFIC 

<77 

I 

HULL  TYPE/SUBTYPE 

<77 

-"1 

[3]  RETURN  TO  MENU 

<77  |  " 

<77 

1" 

-"1 

OPTION  <(OPTION  <77  |" 

-"1 

<77 

1  " 

| 

<77 

1  " 

1 

<77 

I  " 

-”l 

<77 

1  * 

-"1 

<77 

1  " 

-"1 

<77 

|" 

-"1 

N 

<77 

|" 

-"1 

tt 

[TAB] 

NEXT  FIELD,  [RETURN]  TAKE  ACTION,  [ PF3 ] 

QUIT  | 

-IF 

(OPTION 

EQ 

2 

GOTO 

HULL2A2; 

-IF 

(OPTION 

EQ 

1 

GOTO 

HULL2A1 ; 

-IF 

(OPTION 

EQ 

3 

GOTO 

HULL 2 ; 

GOTO  HULL 2 A 
* 

HULL2A2 

* 

CRTFORM  LINE  1 


"|  <77  I" 

" |  TYPE 
" I  SUBTYPE 
"|  <77  I" 
"|  <77  |" 
"|  <77  |" 
"|  <77  |" 
"|  <77  |" 

"i  <77  r 

"|  <77  I" 
"|  <77  |" 
"|  <77  |" 
"|  <77  |" 
"I  <77  I" 


HULL  TYPE  AND  SUBTYPE  SELECTION  ( HULLDESN  SEGMENT) 

<16  <  SHULL_TYP  <77  |" 

<16  <  (HULL  STYP  <77 


{TAB]  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  [PF3]  QUIT 


TABLE  FILE  HULLCNFG 
HEADING  CENTER 

"HULLCNFG  FILE  SPECIFIC  DESIGNS/DESIGN  NUMBERS  AND  GENERAL  COMMENTS’ 

n  n 

PRINT  HULL  TYP  AS  'TYPE'  OVER  HULL  STYP  AS  'STYP'  OVER 

MFRID  AS  tMFR'  OVER  MFR  NO  AS  ' NUM'  SKIP-LINE  OVER 

MFR  COM1  AS  'COMM'  OVER  HFR  COM2  AS  "  OVER  MFR  COM3  AS  " 

BY  MFR  ID  NOPRINT 


BY  MFR_NO  NOPRINT 
IF  HULL  TYP  IS  SHULL_TYP 
IF  HULL~STYP  IS  SHULL  STYP 
END 
_  * 

-GOTO  P2A 
_  * 

-HULL2A1 

_* 

TABLE  FILE  HULLCNFG 
HEADING  CENTER 

"ALL  HULLCNFG  FILE  DESIGNS/DESIGN  NUMBERS  AND  GENERAL  COMMENTS' 

n  n 

PRINT  HULL_TYP  AS  'TYPE'  OVER  HULL  STYP  AS  'STYP*  OVER 
MFR_ID  AS  ' MFR '  OVER  MFR_NO  AS  'NUM'  SKIP-LINE  OVER 
MFR_COMl  AS  'COMM'  OVER  MFR_COM2  AS  "  OVER  MrR_COM3  AS  " 

BY  HULLTYP  NOPRINT 
BY  HULLSTYP  NOPRINT 
BY  MFRID  NOPRINT 
BY  MFRNO  NOPRINT 
END 


-RUN 

-GOTO  HULL2A 
_  * 

-HULL2B 
_  * 

-CRTFORM  LINE  1 

_ _______ _ _ _ __  _ _ _  _ _  _  _  _ _  _  _ _ 

PARTIAL  OR  FULL  REPORT  SELECTION  OPTIONS 


11]  ALL  DESCRIPTIONS  IN  HULLCNFG  TILE 
[2]  DESCRIPTION  ASSOCIATED  WITH  SPECIFIC 
HULL  TYPE/SUBTYPE 

13]  DESCRIPTION  ASSOCIATED  WITH  SPECIFIC 
HULL  TYPE/SUBTYPE  AND  MFR/MrR  NO 
[4]  RETURN  TO  MENU 


"I  <77  | 
"|  <77  | 
"I  <77  | 
"|  <77  | 
"I  <77  I 


OPTION  <SOPTION  <77  |  " 


[TAB]  NEXT  FIELD,  {RETURN]  TAKE  ACTION,  [ PF3 ]  QUIT 


IF  &OPTION  EQ  1  GOTO  HULL2B1 ; 

IF  &OPTION  EQ  2  GOTO  HULL2B2; 

IF  SOPTION  EQ  3  GOTO  HULL2B3 ; 

IF  SOPTION  EQ  4  GOTO  HULL2 ; 

GOTO  HULL2B 
* 

HULL2B1 

* 

TABLE  FILE  HULLCNFG 
HEADING  CENTER 

"HULLCNFG  FILE  DESIGN  DESCRIPTIONS  AND  GENERAL  COMMENTS 


B-310-5 


N"  V.V 


T»<l 


PRINT  HULL_TYP  AS  'TYPE'  OVER  HULL  STYP  AS  'STYP'  OVER 
MFR_ID  AS  ' MFR '  OVER  MFR_NO  AS  'NUM'  SKIP-LINE  OVER 

HULL_SHAPE  AS  'SHAP'  OVER  HULL_BTYP  AS  'BOW'  OVER  HULL  RTYP  AS  ' STRN 1 
OVER  HULL_MAT  AS  'MAT'  OVER  HULL_PTHCK  AS  ' PTHK'  OVER  HULL  FTYP 
AS  'FRAM'  OVER  HULL  WGRPS  AS  'WTGP'  OVER  HU  COM1  AS  'COMM'  OVER 
HU_COM2  AS  ' '  OVER  HU_COM3  AS  " 

BY  HULL_TYP  NOPRINT 
BY  HULL_STYP  NOPRINT 
BY  MFR_ID  NOPRINT 
BY  MFR__NO  NOPRINT 
END 
—  * 

-GOTO  P2B 
_  * 

-HULL2B2 

_* 

-CRTFORM  LINE  1 

_  n  ______________________________________________________  _ 

-”|  HULL  TYPE/SUBTYPE  SELECTION  ( HULLDESN  SEGMENT) 


”|  <77  I" 

" j  TYPE 
" j  SUBTYPE 

-i  <77  r 

"|  <77  I" 
"|  <77  |" 
"|  <77  |" 
"|  <77  |" 
"|  <77  |" 
"|  <77  |" 
"|  <77  |" 
"|  <77  I" 
"|  <77  |H 
"I  <77  I" 


<16  <  SHULL_TYP  <77  |  " 
<16  <  SHULL_STYP  <77  |  " 


[TAB]  NEXT  FIELD,  I  RETURN  J  TAKE  ACTION,  [ PF3 ]  QUIT 


TABLE  FILE  HULLCNFG 
HEADING  CENTER 

"SPECIFIC  HULLCNFG  FILE  DESIGN  DESCRIPTIONS  AND  GENERAL  COMMENTS" 

W  »* 

PRINT  HULLTYP  AS  'TYPE'  OVER  HULLSTYP  AS  'STYP'  OVER 
MFRID  AS  'MFR'  OVER  MFRNO  AS  'NUM'  SKIP-LINE  OVER 

HULLSHAPE  AS  'SHAP'  OVER  HULL  BTYP  AS  'BOW'  OVER  HULL_RTYP  AS  'STRN' 
OVER  HULLMAT  AS  'MAT'  OVER  HUlL  PTHCK  AS  'PTHK'  OVER  HULLFTYP 
AS  'FRAM'  OVER  HULL  WGRPS  AS  'WTgp'  OVER  HUCOM1  AS  'COMM'  OVER 
HUCOM2  AS  ' '  OVER  HU_COM3  AS  " 

BY~MFR_ID  NOPRINT 
BY  MFRNO  NOPRINT 
IF  HULLTYP  IS  SHULL  TYP 
IF  HULL_STYP  IS  SHULL_STYP 
END 


-GOTO  P2B 
_  * 

-HULL2B3 


-CRTFORM  LINE  1 


HULL  TYPE/SUBTYPE  AND  MFR/MFR  NO  SELECTION  (HULLDESN  SEGMENT) 


-"|  <77 


B-310-6 


iwysvM 


V  V 

1 

TYPE 

<16  < 

(HULL  TYP 

<77  r 

-"1 

SUBTYPE 

<16  < 

(HULL  STYP 

<77  |" 

-"1 

<77 

r 

-"1 

MFR 

<16  < 

&MFR  ID 

<77  1" 

I 

MFR 

NO 

<16  < 

(MFR  NO 

<77  1" 

-"1 

<77 

1" 

-"1 

<77 

1" 

-"1 

<77 

1" 

-"1 

<77 

1" 

-"1 

<77 

|" 

1 

<77 

1  " 

-"1 

<77 

1" 

-"  1 
_  tf 

<77 

1  " 

(TAB)  NEXT  FIELD,  { RETURN J  TAKE  ACTION,  [PF3]  QUIT 


TABLE  FILE  HULLCNFG 
HEADING  CENTER 

"SPECIFIC  HULLCNFG  FILE  DESIGN  DESCRIPTIONS  AND  GENERAL  COMMENTS" 

rt  H 

PRINT  HULL_TYP  AS  'TYPE'  OVER  HULL_STYP  AS  'STYP'  OVER 
MFR_ID  AS  'MFR'  OVER  MFR  NO  AS  'NUM'  SKIP-LINE  OVER 

HULL_SHAPE  AS  'SHAP'  OVER  HULL_BTYP  AS  'BOW'  OVER  HULL  RTYP  AS  ' STRN ' 
OVER  HULLMAT  AS  'MAT'  OVER  HULL  PTHCK  AS  ' PTHK '  OVER  HULL  FTYP 
AS  'FRAM'  OVER  HULL_WGRPS  AS  'WTSP'  OVER  HUCOM1  AS  'COMM'~OVER 
HUCOM2  AS  ' '  OVER  HU_COM3  AS  ' ' 

If  HULL  TYP  IS  (HULL  TYP 


IF  HULLSTYP 
IF  MFRID  IS 
IF  MFRNO  IS 
END 
.* 

-P2B 

* 

RUN 

GOTO  HULL2B 
* 

HULL2C 

* 

CRTFORM  LINE  1 


IS  (HULL 
(MFRID 
(MFR  NO 


STYP 


PARTIAL  OR  FULL  REPORT  SELECTION  OPTIONS 


~"l 

<77 

r 

-"1 

m 

ALL  SPECIFICATIONS  IN  HULLCNFG 

FILE 

<77 

1" 

-”l 

[2] 

SPECIFICATIONS  ASSOCIATED  WITH 

SPECIFIC 

<77 

1  " 

~"l 

HULL  TYPE/SUBTYPE 

<77 

1  " 

-"1 

[3] 

SPECIFICATIONS  ASSOCIATED  WITH 

SPECIFIC 

<77 

1" 

-"1 

HULL  TYPE/SUBTYPE  AND  MFR/MFR  1 

NO 

<77 

1  " 

1 

[4] 

RETURN  TO  MENU 

<77 

1" 

1 

<77 

r 

-"  1 

OPTION  <(OPTION  <77  | 

It 

1 

<77 

r 

""  I 

<77 

i " 

1 

<77 

i " 

-"  | 

<77 

i " 

-"1 

<77 

i " 

[TAB]  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  [PF3]  QUIT 


.* 

•IF 


(OPTION  EQ  1  GOTO  HULL2C1 ; 


B-310-7 


jo 


NJH 

M 


1 


-IF  &OPTION  EQ  2  GOTO  HULL2C2; 

-IF  40PTI0N  EQ  3  GOTO  HULL2C3 ; 

-IF  40PTI0N  EQ  4  GOTO  HULL2 ; 

-GOTO  HULL2C 
-  * 

-HULL2C1 
.  * 

TABLE  FILE  HULLCNFG 
HEADING  CENTER 

"HULLCNFG  FILE  DESIGN  SPECIFICATIONS  AND  GENERAL  COMMENTS" 

If  H 

PRINT  HULL_TYP  AS  'TYPE'  OVER  HULL_STYP  AS  'STYP'  OVER 
MFR_ID  AS  ' MFR '  OVER  MFR_NO  AS  'NUM'  SKIP-LINE  OVER1 
HULLLOA  AS  'LOA'  OVER  HULL_LBP  AS  ' LBP '  OVER  HULL_BEAM  AS  'BEAM' 
OVER  HULL_MX_DRFT  AS  'MXDF'  OVER  HULL_MN  DRFT  AS  'MNDF'  OVER 
HULL_LS  DRFT  AS  ' LSDF '  OVER  HULL_PBD  AS  TFBD'  OVER  HULL_FL  DIS 
AS  'FDlS'  OVER  HULL_DWT  AS  'DWT'  OVER  HULL_DRA  ST  AS  'DRSTt 
OVER  HUL  L_DRA_MC  AS  ' DRMC '  OVER  HULL_MX_DPTH  AS  'DPTH'  OVER 
HULL_8LCK_CO  AS  ' BLCK '  OVER  HULL_PRIS_CO  AS  'PRIS'  OVER 
SPEC_COMl  AS  'COMM'  OVER  SPEC_COM2  AS  "  OVER  SPECCOM3  AS  " 

BY  HULL_TYP  NOPRINT 
BY  HULL  STYP  NOPRINT 


”|  <77  |" 
"|  <77  |" 
"|  <77  |" 
"|  <77  |" 
"|  <77  |" 
"|  <77  |" 


l TABJ  NEXT  FIELD,  (RETURN)  TAKE  ACTION,  ( PF3 1  QUIT 


TABLE  FILE  HULLCNFG 
HEADING  CENTER 

"SPECIFIC  HULLCNFG  FILE  DESIGN  SPECIFICATIONS  AND  GENERAL  COMMENTS" 

h  n 

PRINT  HULL_TYP  AS  'TYPE'  OVER  HULL  STYP  AS  'STYP'  OVER 

MFRID  AS  'MFR'  OVER  MFR_NO  AS  'NUM'  SKIP-LINE  OVER 

HULLLOA  AS  'LOA'  OVER  HULL_LBP  AS  'LBP'  OVER  HULL  BEAM  AS  'BEAM' 

OVER  HULL_MX  DRFT  AS  'MXDF'  OVER  HULL  MN  DRFT  AS  'HNDF'  OVER 

HULL  LS  DRFT~AS  'LSDF'  OVER  HULL_FBD  AS  TFBD'  OVER  HULL  FL  DIS 

AS  '?Dl3'  OVER  HULL_DWT  AS  'DWT'  OVER  HULL_DRA  ST  AS  'D5STT 

OVER  HULL  DRA  MC  AS  'DRMC'  OVER  HULL  MX  DPTH  AS  'DPTH'  OVER 


B-310-8 


•> i' 


*.W  </. 


wv 


W;V 


HULL_BLCK_CO  AS  ' BLCK '  OVER  HULL  PRIS  CO 
SPEC  COMl  AS  'COMM'  OVER  SPEC_C0M2  AS-'' 
BY  MFR_ID  NOPRINT 
BY  MFR  NO  NOPRINT 
IF  HULL_TYP  IS  SHULL_TYP 
IF  HULL_STYP  IS  SHULL  STYP 
END 
_  * 

-GOTO  P2C 
_  * 

-HULL2C3 
_  * 

-CRTFORM  LINE  1 


T^TT-TT"  \mJf  PggrpffT  yryiy  M  ».>  v  V. 


AS  'PRIS'  OVER 
OVER  SPEC  COM3  AS  ' ' 


tt 


HULL  TYPE/SUBTYPE  AND  MFR/MFR  NO  SELECTION  (HULLDESN  SEGMENT) 


1  <77 

1  TYPE 

r 

<16  < 

SHULL  TYP 

<77  |" 

1  SUBTYPE 

<16  < 

SHULL  STYP 

<77  )" 

1  <77 

r 

|  MFR 

<16  < 

SMFR  ID 

<77  |" 

|  MFR 

NO 

<16  < 

SMFR  NO 

<77  |  " 

1  <77 

1  " 

1  <77 

I  " 

1  <77 

1" 

1  <77 

1  " 

1  <77 

1  " 

1  <77 

1  " 

1  <77 

1  " 

1  <77 

1  " 

|  [TAB]  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  [ PF3 ]  QUIT  | 

TABLE  FILE  HULLCNFG 
HEADING  CENTER 

"SPECIFIC  HULLCNFG  FILE  DESIGN  SPECIFICATIONS  AND  GENERAL  COMMENTS" 

n  n 

PRINT  HULLTYP  AS  'TYPE'  OVER  HULL  STYP  AS  'STYP'  OVER 

MFRID  AS  'MFR'  OVER  MFRNO  AS  'NUM'  SKIP-LINE  OVER 

HULL_LOA  AS  'LOA'  OVER  HULL_LBP  AS  ' LBP '  OVER  HULL_BEAM  AS  'BEAM' 

OVER  HULLMXDRFT  AS  'MXDF'  OVER  HULL_MN_DRFT  AS  ' MNDF '  OVER 

HULL_LS_DRFT  AS  ' LSDF '  OVER  HULL_FBD  AS  ' FBD'  OVER  HULL_FL_DIS 

AS  ' FDIS '  OVER  HULL_DWT  AS  'DWT'  OVER  HULLDRA  ST  AS  ' DRST' 

OVER  HULLDRAMC  AS  ’ DRMC '  OVER  HULL_MX_DPTH  AS  'DPTH'  OVER 
HULL_BLCK_CO  AS  'BLCK'  OVER  HULL  PRISCS  AS  'PRIS'  OVER 
SPECCOM1  AS  'COMM'  OVER  SPEC_COM2  AS  "  OVER  SPECCOM3  AS  " 

IF  HULLTYP  IS  SHULL  TYP 
IF  HULL_STYP  IS  SHULL_STYP 
IF  MFR_ID  IS  SMFR_ID 
IF  MFRNO  IS  SMFR_NO 
END 
-  * 

-P2C 
-  * 

-RUN 

-GOTO  HULL2C 
_* 

-HULL2D 
-  * 

-CRTFORM  LINE  1 


PARTIAL  OR  FULL  REPORT  SELECTION  OPTIONS 


B-310-9 


y.yo 


<77 


i 


-"I 

-"i  <77  r 
I 

-"|  <77  I" 
-")  <77  |" 
-"|  <77  I" 
-"|  <77 
-"|  <77  P 


[1]  ALL  RIDE  CONTROL  SPECIFICATIONS  IN  FILE  <77  | ” 

[2]  SPECIFICATIONS  ASSOCIATED  WITH  SPECIFIC  <77  |" 

HULL  TYPE/SUBTYPE  <77  |" 

[3]  SPECIFICATIONS  ASSOCIATED  WITH  SPECIFIC  <77  |" 

HULL  TYPE/SUBTYPE  AND  MFR/MFR  NO  <77  j" 

[4]  RETURN  TO  MENU  <77  | " 

OPTION  < SOPTION  <77  | " 


M 


"|  ( TAB ]  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  [ PF3 ]  QUIT 

If 


If 

If 


-IF  SOPTION  EQ  1 
-IF  SOPTION  EQ  2 
-IF  SOPTION  EQ  3 
-IF  SOPTION  EQ  4 
-GOTO  HULL2D 
_* 

-HULL2D1 


GOTO  HULL2D1; 
GOTO  HULL2D2; 
GOTO  HULL2D3; 
GOTO  HULL 2 ; 


TABLE  FILE  HULLCNFG 
HEADING  CENTER 

"HULLCNFG  FILE  RIDE  CONTROL  SPECS  AND  GENERAL  COMMENTS" 


PRINT  HULL  TYP  AS  'TYPE'  OVER  HULL  STYP  AS  'STYP'  OVER 

MFRID  AS  TMrR'  OVER  MFR_NO  AS  'NUM'  SKIP-LINE  OVER 

CNTRTYPE  AS  'CTYP'  OVER  CNTRDESC  AS  'DESC'  OVER 

CNTRCOM1  AS  'COMM'  OVER  CNTRCOM2  AS  "  OVER  CNTRCOM3  AS  " 

BY  HULLTYP  NOPRINT 

BY  HULLSTYP  NOPRINT 

BY  MFRID  NOPRINT 

BY  MFRNO  NOPRINT 

END 


-GOTO  P2D 
_  * 


-HULL2D2 
-  * 

-CRTFORM  LINE  1 


"|  <77  I" 

" |  TYPE 
" j  SUBTYPE 
"|  <77  P 
"|  <77  p 
"|  <77  P 
"|  <77  P 
"|  <77  P 
"|  <77  P 
"|  <77  P 
"|  <77  P 
"|  <77  p 
"|  <77  p 
"1  <77  P 


HULL  TYPE/SUBTYPE  SELECTION  ( HULLDESN  SEGMENT) 


<16  <  SHULL  TYP  <77  |" 
<16  <  SHULL- STYP  <77  |" 


I 

i 

! 

I 

! 

I 

i 

B-310-10 


‘.•  V  V  •»"  •  *  %  L 


i 

i 


[ TAB  1  NEXT  FIELD,  (RETURN)  TAKE  ACTION,  [PF3]  QUIT 


_  * 

TABLE  FILE  HULLCNFG 
HEADING  CENTER 

"SPECIFIC  HULLCNFG  RIDE  CONTROL  SPECS  AND  GENERAL  COMMENTS" 

tt  h 

PRINT  HULL_TYP  AS  'TYPE'  OVER  HULL_STYP  AS  'STYP'  OVER 
MFR_ID  AS  ' MFR '  OVER  MFR_NO  AS  'NUM'  SKIP-LINE  OVER 
CNTR_TYPE  AS  'CTYP'  OVER  CNTR_DESC  AS  'DESC'  OVER 
CNTR_COMl  AS  'COMM'  OVER  CNTR_COM2  AS  "  OVER  CNTR_COM3  AS  " 

BY  MFR_ID  NOPRINT 
BY  MFR_NO  NOPRINT 
IF  HULL_TYP  IS  SHULL_TYP 
IF  HULL_STYP  IS  SHULL_STYP 
END 
_  * 

-GOTO  P2D 
_  * 

-HULL2C3 
_  * 

-CRTFORM  LINE  1 

_  N _ __ _ _ ^  ^ _  „  « _ 

-”|  HULL  TYPE/SUBTYPE  AND  MFR/MFR  NO  SELECTION  (HULLDESN  SEGMENT) 


-"|  <77  |" 

-"|  TYPE 
-"j  SUBTYPE 
-"|  <77  |" 

-"|  MFR 
|  MFR  NO 
-"|  <77 
-"|  <77  I" 

-"|  <77  |" 

-"|  <77  |" 

-"|  <77  |" 

-n|  <77  r 
-”|  <77  I" 

-"|  <77  I" 

-"I  [TAB]  NEXT  FIELD,  (RETURN)  TAKE  ACTION,  [PF3J  QUIT 


<16 

< 

SHULL  TYP 

<77 

<16 

< 

SHULL_STYP 

<77 

<16 

< 

SMFR  ID 

<77 

<16 

< 

SMFRNO 

<77 

TABLE  FILE  HULLCNFG 
HEADING  CENTER 

"SPECIFIC  HULLCNFG  RIDE  CONTROL  SPECS  AND  GENERAL  COMMENTS" 

n  n 

PRINT  HULL_TYP  AS  'TYPE'  OVER  HULL  STYP  AS  'STYP'  OVER 
MFRID  AS  'MFR'  OVER  MFR_NO  AS  'NUM'  SKIP-LINE  OVER 
CNTR_TYPE  AS  'CTYP'  OVER~CNTR_DESC  AS  'DESC'  OVER 
CNTR_C0M1  AS  'COMM'  OVER  CNTR_COM2  AS  "  OVER  CNTR_COM3  AS  " 
IF  HULL_TYP  IS  SHULLTYP 
IF  HULL_STYP  IS  SHULL  STYP 
IF  MFR_ID  IS  SMFR_ID 
IF  MFR_NO  IS  SMFRNO 
END 
_  * 

-P2D 
_  * 

-RUN 

-GOTO  HULL2D 


-CRTFORM  LINE  1 


PARTIAL  OR  FULL  REPORT  SELECTION  OPTIONS 


(1]  ALL  AMV  REFS  IN  HULLCNFG  FILE 

(2]  REFS  ASSOCIATED  WITH  SPECIFIC 
HULL  TYPE/SUBTYPE 

( 3 ]  RETURN  TO  MENU 


"|  <77  I" 
"|  <77  I" 
"|  <77  |" 
"|  <77 
"|  <77  |" 
"|  <77 
”|  <77  p 


OPTION  < &OPTION  <77 


[TAB]  NEXT  FIELD,  [RETURN)  TAKE  ACTION,  [ PF3 ]  QUIT 


B-310-12 


'  w*  ifL  v  irv.  „  r/r.  w  w  w  wvw  r„  »r-  Vi  wv  v*.  \r.  *r  J  ^,v.vg  ^  r.  A  *•_  A'.rA^.A^AAv.V, 


[TAB]  NEXT  FIELD,  (RETURN]  TAKE  ACTION,  [ P F 3  ]  QUIT 


TABLE  FILE  HULLCNFG 
HEADING  CENTER 

"HULLCNFG  FILE  SPECIFIC  LITERATURE  REFERENCES’ 

<1  II 

PRINT  HULL_TYP  AS  'TYPE'  HULL_STYP  AS  'STYP' 
REF_NUM  AS  'REF'  REF_DESC  AS  'DESCRIPTION' 

IF  HULLTYP  IS  4HULL_TYP 
IF  HULLSTYP  IS  SHULL_STYP 
END 
_  * 

-GOTO  PLIT 
_* 

-LIT2A1 
—  * 

TABLE  FILE  HULLCNFG 
HEADING  CENTER 

"ALL  HULLCNFG  FILE  LITERATURE  REFERENCES" 

N  H 

PRINT  HULLTYP  AS  'TYPE'  HULL  STYP  AS  'STYP' 
REFNUM  AS  'REF'  REF_DESC  AS  tDESCRIPTION' 

BY  HULLTYP  NOPRINT  ~ 

BY  HULLSTYP  NOPRINT 
END 
_* 

-PLIT 

-RUN 

-GOTO  LIT2 
_  * 

-THREE 
_  * 

OFFLINE  CLOSE 
ONLINE 
EX  OEB300 
END 
_  * 

-RUN 

-GOTO  TOP 


B-310-14 


•Y 


’«r- 


-  * 
_* 


PROPULSN  FILE  REPORTING  SYSTEM  -  OEB320 


-•DESIGNED  FOR  :  USCG  RSD  CENTER,  OCEAN  ENGINEERING  BRANCH  * 
-•DESIGNED  BY  :  M.  J.  STEVENS  (VTC)  * 
-•DATE  LAST  REV  :  4/30/87  * 


-TOP 

-DEFAULTS  SOPTION-O,  SPRO  TYP-$$$$$$,  SPRO_STYP-$$$$ ,  SMFR_ID-$$$ 
-DEFAULTS  SMFR  NO-$S$$$$$f $$$$ 

-CRTFORM  LINE  T 


1 

PROPULSN  FILE  REPORTING  SYSTEM  -  OEB320 

1  " 
If 

1 

1 

1 

REPORTING  SYSTEM  OPTIONS 

1" 

1  " 
1" 

1 

1 

(1]  OUTPUT  OPTIONS 

1 

r 

1 

(2]  REPORT  OPTIONS 

i" 

1 

1 

(3)  EXIT  PROGRAM 

r 

i " 

1 

1 

OPTION  — >  < SOPTION 

i- 

1  <77  |" 

i 

1  <77  |" 

1  <77  |" 

r» 

1 

(TAB]  NEXT  FIELD,  (RETURN]  TAKE  ACTION,  (PF3]  QUIT 

i " 

-  * 

-IF  SOPTION  EQ  1  GOTO  ONE; 

-IF  SOPTION  EQ  2  GOTO  TWO; 

-IF  SOPTION  EQ  3  GOTO  THREE; 

-GOTO  TOP 
_* 

-ONE 
_  * 

-CRTFORM  LINE  1 

_  H _ _ _ _ —  —  n 

REPORT  OUTPUT  OPTIONS  MENU  I " 


OPTIONS  LIST 

11]  DIRECT  OUTPUT  TO  CRT 

(2]  DIRECT  OUTPUT  TO  PRT 

[3]  REPORT  DIRECTORY 


OPTION  — >  < SOPTION 


-"|  <77  I" 

-"i  <77  r 

-"|  (TAB]  NEXT  FIELD,  (RETURN]  TAKE  ACTION,  ( PF3 )  QUIT 


N 


n 

n 


-* 

-IF  SOPTION  EQ  1  GOTO  MAINl ; 


-IF  &OPTION  EQ  2  GOTO  HULL1 ; 
-IF  &OPTION  EQ  3  GOTO  TOP; 
-GOTO  ONE 
_  * 

-MAIN1 
—  * 

OFFLINE  CLOSE 
ONLINE 
END 
_  * 

-CRTFORM  LINE  1 


ALL  REPORTS  WILL  OUTPUT  TO  SCREEN 


PRESS  RETURN  TO  CONTINUE  CSOPTION 


-RUN 

-GOTO  ONE 
—  * 

-HULLl 

_* 

OFFLINE 
END 
—  * 

-CRTFORM  LINE  1 


ALL  REPORTS  WILL  OUTPUT  TO  PRINTER  I " 


PRESS  RETURN  TO  CONTINUE  <40PTI0N 


-RUN 

-GOTO  ONE 


-CRTFORM  LINE  1 


PROPULSN  FILE  REPORT  OPTIONS  -  OEB320 


OPTIONS  LIST 

[1]  MAIN  SEGMENT  REPORT 

(2]  SYS  SEGMENT  REPORTS 


B-320-2 


I 


$ 


[3J  AMV  REFERENCE  REPORT 
[41  LITERATURE  REF  REPORT 
[5]  REPORT  DIRECTORY 


-"|  OPTION  — >  <  (OPTION 

-"I 

-"|  <77  |" 

-"|  <77  | " 


1  TAB  1  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  [PF3]  QUIT 


-IF 

(OPTION 

EQ 

1 

GOTO 

MAIN2 

-IF 

(OPTION 

EQ 

2 

GOTO 

HULL2 

-IF 

(OPTION 

EQ 

3 

GOTO 

AMV2; 

-IF 

(OPTION 

EQ 

4 

GOTO 

LIT2; 

-IF 

(OPTION 

EQ 

5 

GOTO 

TOP; 

-GOTO  TWO 
_* 

-MAIN2 
_  * 

TABLE  FILE  PROPULSN 
HEADING  CENTER 

"PROPULSN  FILE  TYPES/SUBTYPES  AND  GENERAL  COMMENTS 

n  ft 

PRINT  PROTYP  AS  'TYPE'  OVER  PROSTYP  AS  'STYP'  SKIP-LINE  OVER 
PROCOMl  AS  'COMM'  OVER  PROCOM2  AS  "  OVER  PROCOM3  AS  " 

BY  PROTYP  NOPRINT 
BY  PROSTYP  NOPRINT 
END 

-RUN 

-GOTO  TWO 
-* 

-HULL2 

.* 

-CRTFORM  LINE  1 


SYS  DESIGN  REP  OPTIONS  FOR  PROPULSN  FILE  -  OEB320 


OPTIONS  LIST 

[1]  SYS  DESIGN  REPORT 

[2]  SYS  DESCRIPTION  REPORT 

[3]  SYS  SPECIFICATIONS  REPORT 

[4]  DRIVE  SPECS  REPORT 
{5]  RETURN  TO  MENU 

OPTION  — >  <(OPTION 


[TAB]  NEXT  FIELD,  [RETURN)  TAKE  ACTION,  [Pr3]  QUIT 


"I 

"|  <77  |" 
"|  <77  I" 


-ir  (OPTION  EQ  l  GOTO  HULL2A; 
-IF  (OPTION  EQ  2  GOTO  HULL2B ; 
-ir  (OPTION  EQ  3  GOTO  HULL2C; 
-IF  (OPTION  EQ  4  GOTO  HULL2D; 
-IF  (OPTION  EQ  5  GOTO  TWO; 


-GOTO  HULL2 

.  * 

-HULL2A 
.  * 

-CRTFORM  LINE  1 


PARTIAL  OR  FULL  REPORT  SELECTION  OPTIONS 


-"|  <77 


"  I 

"i  <77  r 
"I 

"|  <77  I" 
"|  <77  I" 
"|  <77  I" 
"|  <77  |" 
"|  <77  |" 
"|  <77  I" 
"|  <77 


[1]  ALL  SYSTEMS  IN  PROPULSN  FILE 

[2]  SYSTEMS  ASSOCIATED  WITH  SPECIFIC 
PROPULSION  TYPE/SUBTYPE 

[ 3 ]  RETURN  TO  MENU 

OPTION  <  SOPTION  <77  I  " 


( TAB  J  NEXT  FIELD,  [RETURN)  TAKE  ACTION,  [ PF3 )  QUIT 


-IF  SOPTION  EQ  2 
-IF  SOPTION  EQ  1 
-IF  SOPTION  EQ  3 
-GOTO  HULL2A 
-  * 

-HULL2A2 

.* 

-CRTFORM  LINE  1 


GOTO  HULL2A2; 
GOTO  HULL2A1; 
GOTO  HULL2; 


SYS  TYPE  AND  SUBTYPE  SELECTION  [PROPULSN  SEGMENT) 


|  <77 

1  TYPE 

ft 

<16  <  SPRO  TYP 

<77  |  " 

1  SUBTYPE 

<16  <  SPRO~STYP 

<77  |" 

1  <77 

it 

1  <77 

ft 

|  <77 

« 

1  <77 

n 

(  <77 

»• 

I  <77 

it 

1  <77 

ft 

1  <77 

ft 

1  <77 

ft 

j  <77 

it 

1  <77 

it 

1 

[TAB)  NEXT  FIELD, 

[RETURN)  TAKE  ACTION,  [  P F 3 )  QUIT 

TABLE  FILE  PROPULSN 
HEADING  CENTER 

"PROPULSN  FILE  SPECIFIC  SYSTEMS/DESIGN  NUMBERS  AND  GENERAL  COMMENTS’ 

ft  it 

PRINT  PROTYP  AS  'TYPE'  OVER  PRO  STYP  AS  'STYP'  OVER 
MFRID  AS  ' MFR'  OVER  MFR_NO  AS  'NUK'  SKIP-LINE  OVER 
MFRjlOMl  AS  'COMM'  OVER  MFR  COM2  AS  "  OVER  MFR_COM3  AS  " 

BY  MFR  ID  NOPRINT 


B-320-4 


4.^*  W 


'M 

«» 


BY  MFR_NO  NOPRINT 
IF  PRO_TYP  IS  (PRO_TYP 
IF  PRO_STYP  IS  (PRO_STYP 
END 
.  * 

-GOTO  P2A 
.  * 

-HULL2A1 
.  * 

TABLE  FILE  PROPULSN 
HEADING  CENTER 

"ALL  PROPULSN  FILE  SYSTEMS/DESIGN  NUMBERS  AND  GENERAL  COMMENTS 

II  It 

PRINT  PRO_TYP  AS  'TYPE'  OVER  PRO_STYP  AS  'STYP'  OVER 
MFR_ID  AS  ' MFR'  OVER  MFR_NO  AS  'NUM'  SKIP-LINE  OVER 
MFR_COMl  AS  'COMM'  OVER  MFR_C0M2  AS  "  OVER  MFR_COM3  AS  " 

BY  PRO_TYP  NOPRINT 
BY  PROSTYP  NOPRINT 
BY  MFRID  NOPRINT 
BY  MFRNO  NOPRINT 
END 
* 

P2A 

* 

RUN 

GOTO  HULL2A 
* 

HULL2B 

* 

CRTFORM  LINE  1 


-"1 

ft 

PARTIAL  OR  FULL  REPORT  SELECTION 

OPTIONS 

1 

-"1 

<77 

1" 

1 

(11 

ALL  DESCRIPTIONS  IN  PROPULSN 

FILE 

<77 

r 

I 

[2] 

DESCRIPTION  ASSOCIATED  WITH 

SPECIFIC 

<77 

i” 

-"1 

SYS  TYPE/SUBTYPE 

<77 

i " 

1 

[3] 

DESCRIPTION  ASSOCIATED  WITH 

SPECIFIC 

<77 

i " 

-”l 

SYS  TYPE/SUBTYPE  AND  MFR/MFR 

NO 

<77 

i " 

-"1 

14] 

RETURN  TO  MENU 

<77 

i " 

1 

<77 

1  " 

1 

OPTION  < (OPTION  <77 

1" 

1 

<77 

1" 

1 

<77 

1  " 

1 

<77 

1  " 

1 

<77 

1  " 

-"1 

<77 

1  " 

[TAB]  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  [ PF3 1  QUIT 


-IF  (OPTION  EQ  1  GOTO  HULL2B1 ; 

-IF  {.OPTION  EQ  2  GOTO  HULL2B2 ; 

-IF  {.OPTION  EQ  3  GOTO  HULL2B3; 

-IF  (OPTION  EQ  4  GOTO  HULL2 ; 

-GOTO  HULL2B 
.  * 

-HULL2BI 
.  * 

TABLE  FILE  PROPULSN 
HEADING  CENTER 

"PROPULSN  FILE  SYSTEM  DESCRIPTIONS  AND  GENERAL  COMMENTS" 

M  H 


B-320-5 


$ 

1$ 

1 


«.  VVVVi.' 


PRINT  PRO_TYP  AS  'TYPE'  OVER  PRO  STYP  AS  'STYP'  OVER 
MFR_ID  AS  ' MFR '  OVER  MFR_NO  AS  'NUM'  SKIP-LINE  OVER 

PRO  FNCTN  AS  ' FNCT ’  OVER  PRO_HP_TYP  AS  ' HTYP '  OVER  PRO  HP  COM  AS  'HCOM' 
OVER  PRO  FUEL  AS  'FUEL'  OVER~PRO  ST  MTHD  AS  ' STRT'  OVER  ~ 

PRO  TURBO  AS  'TURB'  OVER 

PR_50M1  AS  'COMM'  OVER  PR_COM2  AS  "  OVER  PR  COM3  AS  " 

BY  PRO_TYP  NOPRINT 
BY  PRO_STYP  NOPRINT 
BY  MFR_ID  NOPRINT 
BY  MFR_NO  NOPRINT 
END 


V  V\ 


-GOTO  P2B 
_  * 

-HULL2B2 


-CRTFORM  LINE  1 


SYS  TYPE/SUBTYPE  SELECTION  ( PROTYP  SEGMENT) 


”|  <77  |" 

" |  TYPE 
" j  SUBTYPE 
"|  <77 
"|  <77  |" 
"|  <77  I" 
"|  <77  |" 
"|  <77  |" 

" j  <77  |" 

"i  <77  r 

"|  <77  I" 
"|  <77  |" 

"i  <77  r 
"i  <77  r 


<16  <  &PRO_TYP 
<16  <  4PRO  STYP 


(TAB]  NEXT  FIELD,  ( RETURN  J  TAKE  ACTION,  f PF3 ]  QUIT 


TABLE  FILE  PROPULSN 
HEADING  CENTER 

"SPECIFIC  PROPULSN  FILE  SYSTEM  DESCRIPTIONS  AND  GENERAL  COMMENTS" 

n  » 

PRINT  PROTYP  AS  'TYPE'  OVER  PROSTYP  AS  'STYP'  OVER 
MFR_ID  AS  'MFR'  OVER  MFR  NO  AS  'NUM'  SKIP-LINE  OVER 

PROFNCTN  AS  'FNCT'  OVER~PRO_HP  TYP  AS  'HTYP'  OVER  PROHPCOM  AS  'HCOM' 
OVER  PRO  FUEL  AS  'FUEL'  OVER  PR5_ST_MTHD  AS  'STRT'  OVER 
PROTURB5  AS  'TURB'  OVER 

PRCOM1  AS  'COMM'  OVER  PR_COM2  AS  "  OVER  PRCOM3  AS  " 

BY  MFRID  NOPRINT 
BY  MTR_NO  NOPRINT 
IF  PROTYP  IS  6PRO_TYP 
IF  PROSTYP  IS  iPRO_STYP 
END 


-GOTO  P2B 
-  * 

-HULL2B3 
-  * 

-CRTFORM  LINE  1 


SYS  TYPE/SUBTYPE  AND  MFR/MFR  NO  SELECTION  (PROTYP  SEGMENT) 


3S 

I 


<77  r 
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1 

TYPE 
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< 

&  PRO 
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SUBTYPE 

<16 

< 

(PRO 

STYP 

-"  1 

<77 

1  " 

-  "  I 

MFR 

<16 

< 

(MFR 

ID 

-  " 

MFR 

NO 

<16 

< 

(MFR 

NO 

_  "  1 

<77 

1  " 

<77 

1" 

-  "  1 

<77 

1" 

-  "  1 

<77 

1" 
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<77 

r 
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<77 

i" 

-  "  1 

<77 

i " 

w 

<77 

i" 

<77  |  " 
<77 

<77  |  " 
<77  1  ” 


[TAB]  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  [PF3]  QUIT 


TABLE  FILE  PROPULSN 
HEADING  CENTER 

"SPECIFIC  PROPULSN  FILE  SYSTEM  DESCRIPTIONS  AND  GENERAL  COMMENTS" 

#•  M 

PRINT  PRO_TYP  AS  'TYPE'  OVER  PRO_STYP  AS  'STYP'  OVER 
MFR_ID  AS  ' MFR'  OVER  MFR_NO  AS  'NUM'  SKIP-LINE  OVER 

PRO_FNCTN  AS  ' FNCT'  OVER  PRO  HP  TYP  AS  ' HTYP '  OVER  PRO  HP_COM  AS  'HCOM' 
OVER  PRO_FUEL  AS  'FUEL'  0VER~PR5_ST_MTHD  AS  ' STRT'  OVER 
PROTURBO  AS  'TURB'  OVER 

PRCOM1  AS  'COMM'  OVER  PRCOM2  AS  "  OVER  PRCOM3  AS  " 

IF  PROTYP  IS  ( PRO  TYP 
IF  PROSTYP  IS  (PRQSTYP 
IF  MFRID  IS  (MFRID 
IF  MFR  NO  IS  (MFRNO 
END 
-* 

-P2B 

-RUN 

-GOTO  HULL2B 
-* 

-HULL2C 

-CRTFORM  LINE  1 


PARTIAL  OR  FULL  REPORT  SELECTION  OPTIONS 


[1]  ALL  SPECIFICATIONS  IN  PROPULSN  FILE 

[2]  SPECIFICATIONS  ASSOCIATED  WITH  SPECIFIC 
SYS  TYPE/SUBTYPE 

[3]  SPECIFICATIONS  ASSOCIATED  WITH  SPECIFIC 
-  SYS  TYPE/SUBTYPE  AND  MFR/MFR  NO 

[4]  RETURN  TO  MENU 

OPTION  <(OPTION  <77  | " 


[TAB]  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  [ PF3 ]  QUIT 


-IF  (OPTION  EQ  1  GOTO  HULL2C1 ; 


<77  |  " 
<77  |  " 
<77  |  " 
<77  |  " 
<77  |  " 
<77  I" 


-"|  <77 

i 


-"I 

-"|  <77 

-"I 

-"|  <77 
-")  <77 
-"|  <77 
-"|  <77 
-"|  <77 


nw.w^  VC-Jf 


-IF  &OPTION  EQ  2  GOTO  HULL2C2  ; 

-IF  40PTI0N  EQ  3  GOTO  HULL2C3 ; 

-IF  &OPTION  EQ  4  GOTO  HULL2 ; 

-GOTO  HULL2C 
_  * 

-HULL2C1 
_  * 

TABLE  FILE  PROPULSN 
HEADING  CENTER 

"PROPULSN  FILE  SYSTEM  SPECIFICATIONS  AND  GENERAL  COMMENTS" 

H  H 

PRINT  PRO_TYP  AS  'TYPE'  OVER  PRO_STYP  AS  'STYP'  OVER 
MFR_ID  AS  ' MFR '  OVER  MFR_NO  AS  ' NUM '  SKIP-LINE  OVER 
PROHP  AS  'HP'  OVER  PRO_RPM  AS  'RPM'  OVER  PRO  VOL  AS  'VOL'  OVER 
PRO_WEIGHT  AS  'WT'  OVER  PRO_LEN  AS  'LEN'  OVER  PRO_WIDTH  AS  ' WDTH ' 
OVER  PRO_HEIGHT  AS  'HT'  OVER  PRO_SFC  AS  'SFC'  OVER  PRO  PWR  CST 
AS  ' PCST '  OVER  PRO_MNT_CST  AS  'MCST'  OVER  PRO  MNT_MHR  AS  ' MMHR' 
OVER  PROCYCLE  AS  'CYCL'  OVER  PRO_NO  CYL  AS  ' NCYL '  OVER  PRO  STROK 
AS  ' STRK '  OVER  PRO_BORE  AS  'BORE'  OVER  PROJ1EP  AS  'MEP'  OVER 
PRO_REL_RAT  AS  ' RRAT'  OVER  PRO_ORD_TM  AS  'ORDT'  OVER  PRO  DIS  AS 
'DIS'  OVER 

SPEC_COMl  AS  'COMM'  OVER  SPEC_COM2  AS  "  OVER  SPEC_COM3  AS  " 

BY  PROTYP  NOPRINT 
BY  PROSTYP  NOPRINT 
BY  MFR_ID  NOPRINT 
BY  MFRNO  NOPRINT 
END 
_  * 

-GOTO  P2C 
_  * 

-HULL2C2 
_  * 

-CRTFORM  LINE  1 


1 

SYS 

TYPE/SUBTYPE  SELECTION  (PROTYP  SEGMENT)  | 

1  <77 

" 

1  TYPE 

<16 

<  &PRO  TYP  <77  |" 

1  SUBTYPE 

<16 

<  &PRO  STYP  <77  |" 

1  <77 

It 

1  <77 

it 

1  <77 

w 

|  <77 

it 

1  <77 

M 

1  <77 

It 

|  <77 

It 

1  <77 

It 

1  <77 

It 

1  <77 

It 

1  <77 

•t 

• 

1 

(TAB) 

NEXT  FIELD,  (RETURN)  TAKE  ACTION,  [  PF3 )  QUIT  I 

TABLE  TILE  PROPULSN 
HEADING  CENTER 

"SPECIFIC  PROPULSN  FILE  SYSTEM  SPECIFICATIONS  AND  GENERAL  COMMENTS’ 

H  If 

PRINT  PROTYP  AS  'TYPE'  OVER  PRO  STYP  AS  'STYP'  OVER 

MFRID  AS  'MFR'  OVER  MFR_NO  AS  'SUM'  SKIP-LINE  OVER 

PROHP  AS  'HP'  OVER  PRO_RPM  AS  'RPM'  OVER  PRO  VOL  AS  'VOL'  OVER 

PRO_WEIGHT  AS  'WT'  OVER  PRO_LEN  AS  'LEN'  OVER-PRO  WIDTH  AS  'WDTH' 

OVER  PRO  HEIGHT  AS  'HT'  OVER  PRO  SFC  AS  'SFC'  OVER  PRO  PWR  CST 


B-320-8 


AS  ’ PCST '  OVER  PRO_MNT_CST  AS  'MOST'  OVER  PRO_MNT_MHR  AS  ' MMHR ' 
OVER  PRO_CYCLE  AS  'CYCL'  OVER  PRO_NO_CYL  AS  ' NCYL '  OVER  PRO  STROK 
AS  ' STRK '  OVER  PRO_BORE  AS  'BORE'  OVER  PRO_MEP  AS  'MEP'  OVER 
PRO_REL_RAT  AS  ' RRAT'  OVER  PRO_ORD  TM  AS  'ORDT'  OVER  PRO  DIS  AS 
'DIS'  OVER 

SPEC_COMl  AS  'COMM'  OVER  SPEC_COM2  AS  "  OVER  SPEC_COM3  AS  " 

BY  MFR_ID  NOPRINT 
BY  MFR_NO  NOPRINT 
IF  PRO_TYP  IS  & PRO_TYP 
IF  PRO_STYP  IS  &PRO_STYP 
END 
.  * 

-GOTO  P2C 
.  * 


-HULL2C3 
.  * 

-CRTFORM  LINE  1 


SYS  TYPE/SUBTYPE  AND  MFR/MFR  NO  SELECTION  ( PROTYP  SEGMENT) 
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<16 

< 

&PRO  TYP 
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"1 

<77 

1  " 

"  1 

<77 

1  " 

"  1 

<77 

r 

"  I 

<77 

i " 

"1 

<77 

i " 

"1 

<77 

r 

"1 

<77 

i " 

"1 

<77 

r 
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[ TAB  J  NEXT  riELD,  [ RETURN J  TAKE  ACTION,  [PF3]  QUIT 


TABLE  FILE  PROPULSN 
HEADING  CENTER 

"SPECIFIC  PROPULSN  FILE  SYSTEM  SPECIFICATIONS  AND  GENERAL  COMMENTS" 


PRINT  PROTYP  AS  'TYPE'  OVER  PRO  STYP  AS  'STYP'  OVER 
MFRID  AS  ' MFR '  OVER  MFR_NO  AS  'NUM'  SKIP-LINE  OVER 
PROHP  AS  'HP'  OVER  PRO_RPM  AS  'RPM'  OVER  PRO_VOL  AS  'VOL'  OVER 
PROWEIGHT  AS  'WT'  OVER  PRO  LEN  AS  'LEN'  OVER  PROWIDTH  AS  'WDTH' 
OVER  PROHEIGHT  AS  'HT'  OVES  PRO  SFC  AS  'SFC'  OVER  PROPWRCST 
AS  'PCST'  OVER  PRO  NNT  CST  AS  'M?ST'  OVER  PROMNT  MHR  AS  'MMHR' 
OVER  PRO  CYCLE  AS  TCYCt'  OVER  PRO  NO_CYL  AS  'NCYLT  OVER  PROSTROK 
AS  'STRKt  OVER  PROBORE  AS  'BORE'~OVER  PRO  MEP  AS  'MEP'  OVEl 
PRO  RELRAT  AS  'RRAT'  OVER  PRO_ORD_TM  AS  'ORDT'  OVER  PRODIS  AS 
'DlS'  OVER 

SPEC_COMl  AS  'COMM'  OVER  SPEC  COM2  AS  "  OVER  SPEC  COM3  AS  " 

IF  PROTYP  IS  SPROTYP 
IF  PRO_STYP  IS  4PR0STYP 
IF  MFRID  IS  SMFR_ID 
IF  MFRNO  IS  SMFRNO 
END 

.  * 

-P2C 

_  * 


-RUN 

-GOTO  HULL2C 


B-320-9 


i 


& 


K 


-HULL2D 
_  * 

-CRTFORM  LINE  1 


II 


1 

II 

PARTIAL  OR  FULL  REPORT  SELECTION  OPTIONS 

i 

1 

<77 

1  " 

_  «  I 

[1] 

ALL  DRIVE  SPECIFICATIONS  IN  FILE 

<77 

1  " 

_  "  1 

(2] 

SPECIFICATIONS  ASSOCIATED  WITH  SPECIFIC 

<77 

1  " 

_  n  1 

SYS  TYPE/SUBTYPE 

<77 

1  " 

-  "  1 

[3) 

SPECIFICATIONS  ASSOCIATED  WITH  SPECIFIC 

<77 

1  " 

_  "  1 

SYS  TYPE/SUBTYPE  AND  MFR/MFR  NO 

<77 

1" 

1 

[4] 

RETURN  TO  MENU 

<77 

1  " 

_  "  1 

<77 

1  " 

_  •»  1 

OPTION  < &OPTION  <77 

_  »•  1 

<77 

1  " 

_  "  1 

<77 

r 

1 

<77 

i" 

1 

<77 

i " 

_  "  1 

II 

<77 

r 

-”l 

II 

[TAB]  NEXT  FIELD,  [RETURN)  TAKE  ACTION,  ( PF3 )  QUIT 

I 

-IF  &OPTION  EQ  1 
-IF  &OPTION  EQ  2 
-IF  &OPTION  EQ  3 
-IF  SOPTION  EQ  4 
-GOTO  HULL2D 


GOTO  HULL2D1; 
GOTO  HULL2D2; 
GOTO  HULL2D3; 
GOTO  HULL 2; 


-HULL2D1 
_  * 


TABLE  FILE  PROPULSN 
HEADING  CENTER 

"PROPULSN  DRIVE  SPECIFICATIONS  AND  GENERAL  COMMENTS" 


PRINT  PRO_TYP  AS  'TYPE'  OVER  PRO_STYP  AS  'STYP'  OVER 
MFRID  AS  ' MFR '  OVER  MFR_NO  AS  'NUM'  SKIP-LINE  OVER 

DRVMFR  AS  'MFR'  OVER  DRVMOD  AS  'MOD'  OVER  DRVTYP  AS  'TYPE'  OVER 
DRV_RED_RAT  AS  ' RRAT'  OVER  DRVVOL  AS  'VOL'  OVER  DRVWEIGHT  AS  'WT' 
OVER  DRVREV  AS  'REV'  OVER 

DRV_COMl  AS  'COMM'  OVER  DRV_COM2  AS  "  OVER  DRV_COM3  AS  " 

BY  PROTYP  NOPRINT 
BY  PRO_STYP  NOPRINT 
BY  MFRID  NOPRINT 
BY  MFR_NO  NOPRINT 
END 
_  * 

-GOTO  P2D 

-  * 

-HULL2D2 
_  * 

-CRTFORM  LINE  1 


SYS  TYPE/SUBTYPE  SELECTION  (PROTYP  SEGMENT) 


-"i  <77  r 

-"j  TYPE 

SUBTYPE 
-"|  <77 


<16  <  4PRO_TYP  <77  | 
<16  <  SPRO_STYP  <77  | 


-•  .  j  *  * 


[TAB]  NEXT  FIELD ,  [RETURN]  TAKE  ACTION,  [ PF3 ]  QUIT 


<77  |" 
TYPE 
SUBTYPE 
<77  |  " 
MFR 

MFR  NO 

<77  I  " 


<16  <  SPROTYP  <77 
<16  <  &PROSTYP  <77 

<16  <  4MFR_ID  <77  |' 

<16  <  4MFR  NO  <77  I’ 


[TAB]  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  [ P F 3 ]  QUIT 


B-320-11 
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TABLE  FILE  PROPULSN 
HEADING  CENTER 

"SPECIFIC  PROPULSN  DRIVE  SPECIFICATIONS  AND  GENERAL  COMMENTS" 

w  n 

PRINT  PRO_TYP  AS  'TYPE'  OVER  PRO_STYP  AS  'STYP'  OVER 

MFR_ID  AS  'MFR'  OVER  MFR_NO  AS  'NUM'  SKIP-LINE  OVER 

DRV_MFR  AS  'MFR'  OVER  DRV_MOD  AS  'MOD'  OVER  DRV  TYP  AS  'TYPE'  OVER 

DRVREDRAT  AS  ' RRAT '  OVER  DRV_VOL  AS  'VOL'  OVER  DRVWEIGHT  AS  'WT' 

OVER  DRVREV  AS  'REV'  OVER 

DRVCOM1  AS  'COMM'  OVER  DRV_COM2  AS  "  OVER  DRVCOM3  AS  " 

BY  MFRID  NOPRINT 
BY  MFR_NO  NOPRINT 
IF  PROTYP  IS  4PROTYP 
IF  PRO_STYP  IS  4PROSTYP 
END 
—  * 

-GOTO  P2D 
—  * 

-HULL2C3 
-  * 

-CRTFORM  LINE  1 

|  SYS  TYPE/SUBTYPE  AND  MFR/MFR  NO  SELECTION  (PROTYP  SEGMENT) 


TABLE  FILE  PROPULSN 
HEADING  CENTER 

"SPECIFIC  PROPULSN  DRIVE  SPECIFICATIONS  AND  GENERAL  COMMENTS" 

N  N 

PRINT  PROTYP  AS  'TYPE'  OVER  PRO_STYP  AS  'STYP'  OVER 

MFR_ID  AS  'MFR'  OVER  MFR_NO  AS  'NUM'  SKIP-LINE  OVER 

DRV_MFR  AS  'MFR'  OVER  DRV_MOD  AS  'MOD'  OVER  DRV  TYP  AS  'TYPE'  OVER 

DRV_RED_RAT  AS  'RRAT'  OVER  DRV  VOL  AS  'VOL'  OVER  DRVWEIGHT  AS  'WT' 

OVER  DRV  REV  AS  'REV'  OVER 


I 


v.-'.v.v.v  V 


DRV_C0M1  AS  'COMM'  OVER  DRV_COM2  AS  ''  OVER  DRV_COM3  AS 

IF  PRO_TYP  IS  4 PRO_TYP 
IF  PRO_STYP  IS  4 PRO_STYP 
IF  MFR_ID  IS  4MFR_ID 
IF  MFR  NO  IS  4MFR  NO 


-RUN 

-GOTO  HULL2D 


-CRTFORM  LINE  1 


PARTIAL  OR  FULL  REPORT  SELECTION  OPTIONS 


[1]  ALL  AMV  REFS  IN  PROPULSN  FILE 

[2]  REFS  ASSOCIATED  WITH  SPECIFIC 
SYS  TYPE/SUBTYPE 

[ 3 ]  RETURN  TO  MENU 

OPTION  < 40PTI0N  <77  I" 


[TAB]  NEXT  FIELD,  (RETURN]  TAKE  ACTION,  [ PF3 ]  QUIT 


-IF  40PTI0N  EQ  2 
-IF  &OPTION  EQ  1 
-IF  40PTI0N  EQ  3 
-GOTO  AMV 2 
_  * 

-AMV2A2 
-  * 

-CRTFORM  LINE  1 


GOTO  AMV2A2; 
GOTO  AMV2A1; 
GOTO  TWO; 


SYS  TYPE  AND  SUBTYPE  SELECTION  ( PROTYP  SEGMENT) 


<77  |  " 
TYPE 
SUBTYPE 
<77  I  " 


<16  <  4PRO_TYP  <77 
<16  <  -4 PRO  STYP  <77 


[TAB]  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  [ PF3 ]  QUIT 


B-320-12 


TABLE  FILE  PROPULSN 
HEADING  CENTER 

"PROPULSN  FILE  SPECIFIC  AMV  DATABASE  REFERENCES" 

»1  N 

PRINT  PRO_TYP  AS  'TYPE'  PRO_STYP  AS  'STYP' 

SHI P_ID  AS  'SHIP'  SHIP_NAME  AS  'SHIP  NAME'  SHI P_FLAG  AS 
IF  PRO_TYP  IS  &PRO_TYP 
IF  PRO_STYP  IS  &PRO_STYP 
END 
* 

GOTO  PAMV 
* 

AMV2A1 

* 

TABLE  FILE  PROPULSN 
HEADING  CENTER 

"ALL  PROPULSN  FILE  AMV  REFERENCES" 


PRINT  PRO_TYP  AS  'TYPE'  PRO_STYP  AS  'STYP' 
SHI P_ I D  AS  'SHIP'  SHIP_NAME  AS  'SHIP  NAME* 
BY  PROTYP  NOPRINT 
BY  PROSTYP  NOPRINT 
END 


SHIP  FLAG  AS 


PAMV 

* 

RUN 

GOTO  AMV2 
* 

LIT2 

* 

CRTfORM  LINE  1 


<77  |" 
TYPE 
SUBTYPE 
<77  I" 
<77  I" 
<77  |" 
<77  I" 
<77  |  " 
<77  |" 
<77  |" 
<77  I" 
<77  |  " 
<77  |  " 
<77  |" 


SYS  TYPE  AND  SUBTYPE  SELECTION  ( PROSYS  SEGMENT! 


<16  <  SPRO_TYP 
<16  <  &PRO  STYP 


NEXT  FIELD,  [RETURN)  TAKE  ACTION,  [ PF3 )  QUIT 


TABLE  FILE  PROPULSN 
HEADING  CENTER 

"PROPULSN  FILE  SPECIFIC  LITERATURE  REFERENCES 

n  n 

PRINT  PROTYP  AS  'TYPE'  PRO  STYP  AS  'STYP' 
REFNUM  AS  'REF'  REFDESC  AS  'DESCRIPTION' 

IF  PROTYP  IS  4PROTYP 
ir  PROSTYP  IS  4PROSTYP 
END 
* 

GOTO  PL IT 
* 

LIT2A1 

* 

TABLE  FILE  PROPULSN 
HEADING  CENTER 

"ALL  PROPULSN  FILE  LITERATURE  REFERENCES" 

n  N 

PRINT  PRO  TYP  AS  'TYPE'  PRO  STYP  AS  'STYP' 
REFNUM  AS  'REF'  REFDESC  AS  'DESCRIPTION' 

BY  PROTYP  NOPRINT 
BY  PROSTYP  NOPRINT 
END 
* 

PLIT 

* 

RUN 

GOTO  LIT2 
* 

THREE 

* 

OFFLINE  CLOSE 
ONLINE 
EX  OEB300 
END 
* 

RUN 

GOTO  TOP 


B-320-14 


WWW. 


V 


PROPULSR  FILE  REPORTING  SYSTEM  -  OE8330 


■‘DESIGNED  FOR 
•‘DESIGNED  BY 
■‘DATE  LAST  REV 


USCG  RSD  CENTER,  OCEAN  ENGINEERING  BRANCH 
M.  J.  STEVENS  ( VTC ) 

4/30/87 


-TOP 

-DEFAULTS  SOPTION* 
-DEFAULTS  SMFR  NO* 
-CRTFORM  LINE  I 


0,  SPRO  TYP-$$$$$$,  &PRO  STYP«$$$$,  SMFR  ID-$$$ 

$$$$$$$?$$$$ 


PROPULSR  FILE  REPORTING  SYSTEM  -  OEB330 


REPORTING  SYSTEM  OPTIONS 

[1}  OUTPUT  OPTIONS 
[2]  REPORT  OPTIONS 
[31  EXIT  PROGRAM 


OPTION  -->  <SOPTION 


■"I  <77 
■n|  <77 
■"I  <77 


[TAB)  NEXT  FIELD,  [RETURN)  TAKE  ACTION,  [ PF3 1  QUIT 


-IF  SOPTION  EQ  1 
-IF  SOPTION  EQ  2 
-IF  SOPTION  EQ  3 
-GOTO  TOP 


GOTO  ONE; 
GOTO  TWO; 
GOTO  THREE; 


it 


-CRTFORM  LINE  1 


REPORT  OUTPUT  OPTIONS  MENU 


OPTIONS  LIST 

(1)  DIRECT  OUTPUT  TO  CRT 

(2)  DIRECT  OUTPUT  TO  PRT 

(3)  REPORT  DIRECTORY 


OPTION  — >  <SOPTION 


[TAB)  NEXT  FIELD,  (RETURN)  TAKE  ACTION,  [ PF3 )  QUIT 


-IF  SOPTION  EQ  1  GOTO  MAIN1 ; 


B-330-1 


a 


►  ■  <.■>.■  i'  ■_■  •_•  %-  *.  \  \ 


-IF  &OPTION  EQ  2  GOTO  HULL1; 
-IF  iOPTION  EQ  3  GOTO  TOP; 
-GOTO  ONE 
_  * 

-MAIN 1 
_  * 

OFFLINE  CLOSE 
ONLINE 
END 
_  * 

-CRTFORM  LINE  1 


ALL  REPORTS  WILL  OUTPUT  TO  SCREEN  |" 


PRESS  RETURN  TO  CONTINUE  <&OPTION 


-RUN 

-GOTO  ONE 
_  * 

-HULL1 
_  * 

OFFLINE 
END 
—  * 

-CRTFORM  LINE  1 


ALL  REPORTS  WILL  OUTPUT  TO  PRINTER  I " 


PRESS  RETURN  TO  CONTINUE  <&OPTION 


-RUN 

-GOTO  ONE 
.  * 


-CRTFORM  LINE  1 


PROPULSR  FILE  REPORT  OPTIONS  -  OEB330 


OPTIONS  LIST 

[1]  MAIN  SEGMENT  REPORT 

[2]  SYS  SEGMENT  REPORTS 


B-330-2 


*j iv.v.v.v.v;  .* 


[3]  AMV  REFERENCE  REPORT 

[4]  LITERATURE  REF  REPORT 
(  5 ]  REPORT  DIRECTORY 


-"|  OPTION  — >  <(OPTION 

-"I 

-"|  <77  I" 

-”|  <77  I" 

—  II  _  _  —  _ _ _ _ _ —  —  — .  — 

-”|  [TAB]  NEXT  FIELD,  [RETURN)  TAKE  ACTION,  [ PF3  ]  QUIT 


-IF 

(OPTION 

EQ 

1 

GOTO 

MAIN2 ; 

-IF 

(OPTION 

EQ 

2 

GOTO 

HULL 2 ; 

-IF 

&OPTION 

EQ 

3 

GOTO 

AMV  2 ; 

-IF 

(OPTION 

EQ 

4 

GOTO 

LIT2; 

-IF 

(OPTION 

EQ 

5 

GOTO 

TOP; 

-GOTO  TWO 
_  * 

-MAIN2 

_* 

TABLE  FILE  PROPULSR 
HEADING  CENTER 

"PROPULSR  FILE  TYPES/SUBTYPES  AND  GENERAL  COMMENTS 

N  N 

PRINT  PRO_TYP  AS  'TYPE'  OVER  PRO_STYP  AS  'STYP'  SKIP-LINE  OVER 
PRO_COMl  AS  'COMM'  OVER  PRO_COM2  AS  "  OVER  PRO_COM3  / 

BY  PROTYP  NOPRINT 
BY  PROSTYP  NOPRINT 
END 
_  * 

-RUN 

-GOTO  TWO 
-  * 

-HULL2 

_  * 

-CRTFORM  LINE  1 


«  _____________  _  ____  ____  _  _  ____  _  _  _  _  _  » 


1 

tt 

SYS 

DESIGN  REP 

OPTIONS  FOR  PROPULSR  FILE  -  OEB330 

r 

* 

1 

-nt 

M  | 

OPTIONS  LIST 

r 

i " 
i " 

1 

-"1 

[1] 

SYS  DESIGN  REPORT 

i 

i " 

-"1 

[2] 

SYS  DESCRIPTION  REPORT 

r 

l  3  J 

SYS  SPECIFICATIONS  REPORT 

p 

-"1 

[41 

SHAFT  SPECS  REPORT 

i  ” 

-”l 
«  1 

[5] 

RETURN  TO  MENU 

i" 

I  " 

1 

-"1 

OPTION  — >  < (OPTION 

1 

i  w 

-  1 
-"1 

<77  p 

I 

n 

<77  |  " 

n 

-"1 
—  w  — « 

[tab: 

|  NEXT  FIELD,  (RETURN)  TAKE  ACTION,  [ PF3 ]  QUIT 

i " 

ii 

-* 

-IF 

&OPTION 

EQ 

1 

GOTO 

HULL2A; 

-IF 

(OPTION 

EQ 

2 

GOTO 

HULL2B; 

-IF 

(OPTION 

EQ 

3 

GOTO 

HULL2C; 

-IF 

(OPTION 

EQ 

4 

GOTO 

HULL2D ; 

-IF 

(OPTION 

EQ 

5 

GOTO 

TWO; 

B-330-3 


*1. 


^  H."  » 


OTwy.Tcw-v.v, 


-GOTO  HULL2 


-HULL2A 


-CRTFORM  LINE  1 


PARTIAL  OR  FULL  REPORT  SELECTION  OPTIONS 


[1]  ALL  SYSTEMS  IN  PROPULSR  FILE  <77  |" 

[2]  SYSTEMS  ASSOCIATED  WITH  SPECIFIC  <77  j" 

PROPULSOR  TYPE/SUBTYPE  <77  j" 

[3]  RETURN  TO  MENU  <77  |M 

OPTION  <&OPTION  <77  I" 


[  TAB ]  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  [ PF3 ]  QUIT 


NEXT  FIELD,  [RETURN]  TAKE  ACTION,  ( PF3 I  QUIT 


TABLE  FILE  PROPULSR 
HEADING  CENTER 

"PROPULSR  FILE  SPECIFIC  SYSTEMS/DESIGN  NUMBERS  AND  GENERAL  COMMENTS 

•f  ft 

PRINT  PRO_TYP  AS  'TYPE'  OVER  PRO_STYP  AS  'STYP'  OVER 
MFR_ID  AS  ' MFR'  OVER  MFR_NO  AS  'NUM'  SKIP-LINE  OVER 
MFR_COMl  AS  'COMM'  OVER  MFR_COM2  AS  "  OVER  MFR  COM3  AS  " 

BY  MFR  ID  NOPRINT 


B-330-4 


J 


i 


BY  MFR_NO  NOPRINT 
IF  PRO_TYP  IS  4 PRO_TYP 
IF  PRO_STYP  IS  &PRO_STYP 
END 
.  * 

-GOTO  P2A 
.  * 

-HULL2A1 
.  * 

TABLE  FILE  PROPULSR 
HEADING  CENTER 

"ALL  PROPULSR  FILE  SYSTEMS/DESIGN  NUMBERS  AND  GENERAL  COMMENTS 


PRINT  PROTYP  AS  'TYPE'  OVER  PRO  STYP  AS  'STYP'  OVER 
MFR_ID  AS  ' MFR '  OVER  MFR_NO  AS  'NUM'  SKIP-LINE  OVER 
MFRCOM1  AS  'COMM'  OVER  MFR_COM2  AS  "  OVER  MFR_COM3  AS  " 
BY  PROTYP  NOPRINT 
BY  PROSTYP  NOPRINT 
BY  MFRID  NOPRINT 
BY  MFR_NO  NOPRINT 
END 


.  * 

-P2A 
.  * 

-RUN 

-GOTO  HULL2A 
.  • 

-HULL2B 
.  * 

-CRTFORM  LINE  1 


-"1 

M 

PARTIAL  OR  FULL  REPORT  SELECTION  OPTIONS 

1 

-"1 

<77 

1" 

1 

[1] 

ALL  DESCRIPTIONS  IN  PROPULSR  FILE 

<77 

1” 

1 

(21 

DESCRIPTION  ASSOCIATED  WITH  SPECIFIC 

<77 

1" 

-"1 

SYS  TYPE/SUBTYPE 

<77 

r 

-"1 

(31 

DESCRIPTION  ASSOCIATED  WITH  SPECIFIC 

<77 

r 

-"1 

SYS  TYPE/SUBTYPE  AND  MFR/MFR  NO 

<77 

i " 

(4) 

RETURN  TO  MENU 

<77 

i " 

-"1 

<77 

1  " 

-H 1 

OPTION  <(OPTION  <77  | " 

-"1 

<77 

1  " 

-"1 

<77 

1  " 

-"  1 

<77 

1  " 

| 

<77 

1  " 

1 

n 

<77 

1  " 

-"1 

n 

(TAB)  NEXT  FIELD,  (RETURN)  TAKE  ACTION,  [PF3J 

QUIT 

i 

-IF  (OPTION  EQ  1  GOTO  HULL2B1; 
-IF  (OPTION  EQ  2  GOTO  HULL2B2 ; 
-IF  (OPTION  EQ  3  GOTO  HULL2B3; 
-IF  (OPTION  EQ  4  GOTO  HULL2 ; 


-GOTO  HULL2B 
.  » 

-HULL2B1 
.  * 


TABLE  FILE  PROPULSR 
HEADING  CENTER 

"PROPULSR  FILE  SYSTEM  DESCRIPTIONS  AND  GENERAL  COMMENTS' 


B-330-5 


PRINT  PRO_T YP  AS  'TYPE'  OVER  PRO_STYP  AS  'STYP'  OVER 
MFR_ID  AS  ' MFR '  OVER  MFR_NO  AS  'NUM'  SKIP-LINE  OVER 

PRO_TRAIN  AS  ' TRN '  OVER  PRO_MAT  AS  'MAT'  OVER  PRO  VAR  PITCH  AS  'VPCH' 
OVER  PRO_CNT_PTCH  AS  'CPCH'  OVER  PRO_FULL_REV  AS  rFREV’  OVER 
PRO_DUCTED  AS  'DUCT'  OVER  PRO  TUNNEL  AS  ' TUNN '  OVER 
PR_COMl  AS  'COMM'  OVER  PR_COM2  AS  "  OVER  PR_COM3  AS  '' 

BY  PRO_TYP  NOPRINT 
BY  PRO_STYP  NOPRINT 
BY  MFR_ID  NOPRINT 
BY  MFR_NO  NOPRINT 
END 
_  * 

-GOTO  P2B 

-  * 

-HULL2B2 
_  * 

-CRTFORM  LINE  1 


SYS  TYPE/SUBTYPE  SELECTION  ( PROSYS  SEGMENT) 


<77 

” 

TYPE 

<16 

<  &PRO 

TYP 

SUBTYPE 

<16 

<  &PRO~ 

]STYP 

<77 

tt 

<77 

II 

<77 

If 

<77 

n 

<77 

if 

<77 

« 

<77 

if 

<77 

t« 

<77 

tf 

<77 

ff 

<77 

« 

[TAB]  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  [ PF3  ]  QUIT 


TABLE  FILE  PROPULSR 
HEADING  CENTER 

"SPECIFIC  PROPULSR  FILE  SYSTEM  DESCRIPTIONS  AND  GENERAL  COMMENTS" 

If  I* 

PRINT  PROTYP  AS  'TYPE'  OVER  PRO_STYP  AS  'STYP'  OVER 
MFR_ID  AS  'MFR'  OVER  MFR  NO  AS  'NUM'  SKIP-LINE  OVER 

PROTRAIN  AS  'TRN'  OVER  PRO  MAT  AS  'MAT'  OVER  PROVARPITCH  AS  ' VPC 
OVER  PRO  CNT_PTCH  AS  'CPCH'  OVER  PROFULLREV  AS  'FREV'  OVER 
PRO_DUCTED  AS  'DUCT'  OVER  PRO  TUNNEL- AS  'TUNN'  OVER 
PR_COMl  AS  'COMM'  OVER  PR_COMl  AS  "  OVER  PR_COM3  AS  " 

BY  MFRID  NOPRINT 
BY  MFRNO  NOPRINT 
IF  PROTYP  IS  & PRO  TYP 
IF  PROSTYP  IS  &PR5_STYP 
END 
* 

GOTO  P2B 
* 

HULL2B3 

* 

CRTFORM  LINE  1 


SYS  TYPE/SUBTYPE  AND  MFR/MFR  NO  SELECTION  (PROSYS  SEGMENT) 


I  <77 


B-330-6 


-  "  1 

TYPE 

<16 

< 

&  PRO 

TYP 

<77 

-**  1 

SUBTYPE 

<16 

< 

4  PRO 

STYP 

<77 

-  "  j 

<77 

1  " 

-  "  1 

MFR 

<16 

< 

4MFR 

ID 

<77 

-  "  1 

MFR 

NO 

<16 

< 

4MFR 

NO 

<77 

-  ••  j 

<77 

1  ’* 

-  "  1 

<77 

1  " 

-  "  j 

<77 

1  ,f 

-  M  1 

<77 

1  M 

-  M  j 

<77 

1  " 

-  "  1 

<77 

1  n 

I 

<77 

I  " 

- *  1 

<77 

1  It 

H 

[TAB]  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  ( P F 3  ]  QUIT 


TABLE  FILE  PROPULSR 
HEADING  CENTER 

"SPECIFIC  PROPULSR  FILE  SYSTEM  DESCRIPTIONS  AND  GENERAL  COMMENTS" 

it  n 

PRINT  PRO_TYP  AS  'TYPE'  OVER  PRO_STYP  AS  'STYP'  OVER 
MFR_ID  AS  ' MFR'  OVER  MFR  NO  AS  'NUM'  SKIP-LINE  OVER 

PRO_TRAIN  AS  ' TRN '  OVER  PRO_MAT  AS  'MAT'  OVER  PRO  VAR  PITCH  AS  'VPCH' 
OVER  PRO_CNT  PTCH  AS  'CPCH'  OVER  PRO_FULL  REV  AS  rFREV'  OVER 
PRODUCTED  Al  'DUCT'  OVER  PRO  TUNNEL  AS  'TUNN'  OVER 
PRCOM1  AS  'COMM'  OVER  PRCOM?  AS  "  OVER  PRCOM3  AS  " 

IF  PROTYP  IS  4 PRO  TYP 
IF  PROSTYP  IS  4PR5STYP 
IF  MFRID  IS  4MFRID 
IF  MFRNO  IS  4MFR_NO 
END 
-  * 

-P2B 
.  * 

-RUN 

-GOTO  HULL2B 
.  * 

-HULL2C 
_  * 

-CRTFORM  LINE  1 

-"I  PARTIAL  OR  FULL  REPORT  SELECTION  OPTIONS 


<77  |  " 


[1]  ALL  SPECIFICATIONS  IN  PROPULSR  FILE  <77 

[ 2  j  SPECIFICATIONS  ASSOCIATED  WITH  SPECIFIC  <77 
SYS  TYPE/SUBTYPE  <77 

[3]  SPECIFICATIONS  ASSOCIATED  WITH  SPECIFIC  <77 

.  SYS  TYPE/SUBTYPE  AND  MFR/MFR  NO  <77 

[4]  RETURN  TO  MENU  <77 

OPTION  < 40PTI0N  <77  | " 


TAB)  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  [ P F 3 ]  QUIT 


40PTI0N  EQ  1  GOTO  HULL2C1 ; 


B-330-7 


-IF  &OPTION  EQ  2  GOTO  HULL2C2 ; 

-IF  &OPTION  EQ  3  GOTO  HULL2C3 ; 

-IF  &OPTION  EQ  4  GOTO  HULL2 ; 

-GOTO  HULL2C 
_  * 

-HULL2C1 
_  * 

TABLE  FILE  PROPULSR 
HEADING  CENTER 

"PROPULSR  FILE  SYSTEM  SPECIFICATIONS  AND  GENERAL  COMMENTS" 

It  ft 

PRINT  PRO_TYP  AS  'TYPE'  OVER  PRO_STYP  AS  'STYP'  OVER 
MFR_ID  AS  ' MFR '  OVER  MFR  NO  AS  'NUM'  SKIP-LINE  OVER 

PRO_DIA  AS  'DIA'  OVER  PR5  WEIGHT  AS  'WT'  OVER  PRO  PTCH  MX  AS  'MPCH' 
OVER  PRO  NO_BLDS  AS  ' NBLDr  OVER  PRO_AREA_RAT  AS  'KRAT'  OVER 
SPEC_COMl  AS  'COMM'  OVER  SPEC_COM2  AS  "  OVER  SPEC  COM3  AS  " 

BY  PROTYP  NOPRINT 
BY  PROSTYP  NOPRINT 
BY  MFR_ID  NOPRINT 
BY  MFRNO  NOPRINT 
END 
-  * 

-GOTO  P2C 

-  * 

-HULL2C2 
_  * 


-CRTFORM  LINE  1 

n 


1 

SYS 

TYPE/SUBTYPE  SELECTION  ( PROSYS  SEGMENT)  | 

1  <77 

" 

|  TYPE 

<16 

<  (PRO  TYP  <77  |" 

1  SUBTYPE 

<16 

<  SPRO  STYP  <77 

1  <77 

N 

1  <77 

" 

|  <77 

It 

1  <77 

•• 

1  <77 

n 

1  <77 

it 

1  <77 

•t 

|  <77 

it 

1  <77 

it 

1  <77 

it 

1  <77 

it 

1 

{ TAB  J 

NEXT  FIELD,  (RETURN)  TAKE  ACTION,  [ PF3 1  QUIT  | 

TABLE  FILE  PROPULSR 
HEADING  CENTER 

"SPECIFIC  PROPULSR  FILE  SYSTEM  SPECIFICATIONS  AND  GENERAL  COMMENTS" 

n  n 

PRINT  PROTYP  AS  'TYPE*  OVER  PROSTYP  AS  'STYP'  OVER 
MFRID  AS-' MFR '  OVER  MFR  NO  AS  'NUM'  SKIP-LINE  OVER 

PRO  DIA  AS  'DIA'  OVER  PRS  WEIGHT  AS  'WT'  OVER  PRO  PTCHMX  AS  'MPCH' 
OVES  PRO  NO  BLDS  AS  ' NBLD '  OVER  PRO_AREA_RAT  AS  'ARAT'  OVER 
SPEC_COMl  AS  'COMM'  OVER  SPEC  COM2  AS  "  OVER  SPEC_COM3  AS  " 

BY  MFRID  NOPRINT 
BY  MFRNO  NOPRINT 
IF  PROTYP  IS  fcPRO  TYP 
IF  PROSTYP  IS  tPRSSTYP 
END 


B-330-8 


-GOTO  P2C 

-  * 

-HULL2C  3 
_  * 

-CRTFORM  LINE  1 


SYS  TYPE/SUBTYPE  AND  MFR/MFR  NO  SELECTION  ( PROSYS  SEGMENT) 


_  "  1 

<77 

1  " 

-  "  1 

TYPE 

<16 

< 

4  PRO 

TYP 

<77  r 

-  "  I 

SUBTYPE 

<16 

< 

4  PRO 

~STYP 

<77  I  " 

-  "  I 

<77 

1  " 

-  "  1 

MFR 

<16 

< 

&MFR 

ID 

<77  |  " 

-  M  j 

MFR 

NO 

<16 

< 

&MFR 

~NO 

<77  |  " 

-  "  1 

<77 

1  " 

<77 

1  " 

_  »  1 

<77 

1  " 

<77 

|" 

-  "  1 

<77 

1" 

-  ”  1 

<77 

r 

1 

<77 

i " 

_  «  1 

<77 

i" 

_ _ _ _ _ _ _ _ _ _____" 

-”|  [TAB]  NEXT  FIELD,  [RETURN)  TAKE  ACTION,  [ PF3 )  QUIT  [" 

_  M _ _ _ _ _ _ _ _ _ _ _ _ _ _ tl 


TABLE  FILE  PROPULSR 
HEADING  CENTER 

"SPECIFIC  PROPULSR  FILE  SYSTEM  SPECIFICATIONS  AND  GENERAL  COMMENTS" 

n  n 

PRINT  PROTYP  AS  'TYPE'  OVER  PROSTYP  AS  'STYP'  OVER 
MFRID  AS  ' MFR '  OVER  MFR  NO  AS  'NUM'  SKIP-LINE  OVER 

PRODIA  AS  'DIA'  OVER  PRS  WEIGHT  AS  'WT'  OVER  PROPTCHMX  AS  'MPCH' 
OVER  PRO  NOBLDS  AS  'NBLDT  OVER  PROAREARAT  AS  'ARAT'  OVER 
SPECCOMl  AS  'COMM'  OVER  SPECCOM2  AS  "  OVER  SPEC  COM3  AS  " 

IF  PROTYP  IS  SPROTYP 
IF  PROSTYP  IS  4PROSTYP 
IF  MFRID  IS  SMFRID 
IF  MFRNO  IS  SMFRNO 
END 
_  * 

-P2C 
_  * 

-RUN 

-GOTO  HULL2C 

_  * 

-HULL2D 

_  * 

-CRTFORM  LINE  I 


PARTIAL  OR  TULL  REPORT  SELECTION  OPTIONS 


-"|  <77 

_  *  i 


-"I 

-"|  <77  I" 
-"I 

-"|  <77  I" 
-"|  <77 


[1]  ALL  SHAFT  SPECIFICATIONS  IN  FILE  <77  |" 

[2]  SPECIFICATIONS  ASSOCIATED  WITH  SPECIFIC  <77 

SYS  TYPE/SUBTYPE  <77  j" 

[3]  SPECIFICATIONS  ASSOCIATED  WITH  SPECIFIC  <77  |" 

SYS  TYPE/SUBTYPE  AND  MFR/MFR  NO  <77 

[4]  RETURN  TO  MENU  <77  j" 


OPTION  < (OPTION  <77  |" 


B-330-9 


-IF  &OPTION  EQ  1  GOTO  HULL2D1 
-IF  40PTI0N  EQ  2  GOTO  HULL2D2 
-IF  40PTI0N  EQ  3  GOTO  HULL2D3 
-IF  &OPTION  EQ  4  GOTO  HULL2; 
-GOTO  HULL2D 
_  * 

-HULL2D1 


TABLE  FILE  PROPULSR 
HEADING  CENTER 

"PROPULSR  SHAFT  SPECIFICATIONS  AND  GENERAL  COMMENTS" 

rt  N 

PRINT  PRO_TYP  AS  'TYPE'  OVER  PRO_STYP  AS  'STYP'  OVER 
MFRID  AS  ' MFR'  OVER  MFR_NO  AS  'NUM'  SKIP-LINE  OVER 
SH_ANGL  AS  'ANGL'  OVER  SH_MAT  AS  'MAT'  OVER  SH_OD  AS 
SH_ID  AS  'ID'  OVER  SH_SMOD  AS  'SMOD'  OVER 
SHCOMl  AS  'COMM'  OVER  SHCOM2  AS  "  OVER  SH_COM3  AS 
BY  PROTYP  NOPRINT 
BY  PROSTYP  NOPRINT 
BY  MFRID  NOPRINT 
b*  MFRNO  NOPRINT 
END 
—  * 

-GOTO  P2D 
_  * 

-HULL2D2 
_  * 

-CRTFORM  LINE  1 


<77  r 

TYPE 
SUBTYPE 
<77  I  " 


SYS  TYPE/SUBTYPE  SELECTION  ( PROSYS  SEGMENT) 


<16  <  SPRO_TYP  <77 

<16  <  &  PRO  STYP  <77  ” 


[TAB]  NEXT  FIELD,  [RETURN)  TAKE  ACTION,  [ PF 3  ]  QUIT 


TABLE  FILE  PROPULSR 
HEADING  CENTER 

"SPECIFIC  PROPULSR  SHAFT  SPECIFICATIONS  AND  GENERAL  COMMENTS’ 

It  »» 

PRINT  PRO_TYP  AS  'TYPE'  OVER  PRO_STYP  AS  'STYP'  OVER 
MFR_ID  AS  'MFR'  OVER  MFR_NO  AS  'NUM'  SKIP-LINE  OVER 
SH  ANGL  AS  'ANGL'  OVER  SH  MAT  AS  'MAT'  OVER  SH  OD  AS  'OD'  OVER 


•  VW  A 


MVWCSC 


B-330-10 


v.AViV.v 


v.vv.vv:/ 


«.  V  V 


SH_XD  AS  'ID'  OVER  SH_SMOD  AS  ' SMOD '  OVER 

SH_COMl  AS  'COMM'  OVER  SH_COM2  AS  ''  OVER  SH_COM3  AS 

BY  MFR_ID  NOPRINT 
BY  MFR_NO  NOPRINT 
IF  PRO_TYP  IS  SPRO_TYP 
IF  PRO_STYP  IS  SPRO_STYP 
END 
.  * 

-GOTO  P2D 

.  * 


-HULL2C3 
.  * 

-CRTFORM  LINE  1 


SYS  TYPE/SUBTYPE  AND  MFR/MFR  NO  SELECTION  ( PROSYS  SEGMENT) 


<77 

1  " 

TYPE 

<16 

< 

&PRO 

TYP 

SUBTYPE 

<16 

< 

iPRO~ 

STYP 

<77 

r 

MFR 

<16 

< 

&MFR 

ID 

MFR 

NO 

<16 

< 

4MFR~ 

NO 

<77 

1  *» 

<77 

1  " 

<77 

1  M 

<77 

1  M 

<77 

1  " 

<77 

I  « 

<77 

1  H 

<77 

1 

TAB]  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  [ Pr 3 ]  QUIT 


TABLE  FILE  PROPULSR 
HEADING  CENTER 

"SPECIFIC  PROPULSR  SHAFT  SPECIFICATIONS  AND  GENERAL  COMMENTS’ 


PRINT  PROTYP  AS  'TYPE'  OVER  PROSTYP  AS  'STYP'  OVER 
MFRID  AS  ' MFR '  OVER  MFRNO  AS  'NUM'  SKIP-LINE  OVER 
SH_ANGL  AS  'ANGL'  OVER  SH_MAT  AS  'MAT'  OVER  SHOD  AS 
SH_ID  AS  'ID'  OVER  SHSMOD  AS  'SMOD'  OVER 
SH_COMl  AS  'COMM'  OVER  SH_COM2  AS  "  OVER  SHCOM3  AS 
IF  PROTYP  IS  i PRO  TYP 
IF  PRO_STYP  IS  4PRO_STYP 
IF  MFRID  IS  SMFR_ID 
IF  MFRNO  IS  SMFRNO 
END 
* 

P2D 

* 

RUN 

GOTO  HULL2D 
* 

AMV2 

-CRTFORM  LINE  1 


PARTIAL  OR  FULL  REPORT  SELECTION  OPTIONS 


ALL  AMV  REFS  IN  PROPULSR  FILE 
REFS  ASSOCIATED  WITH  SPECIFIC 


B-330-11 


Vvv-. 


v.v.v.v,  / 


i 


1 


SYS  TYPE, SUBTYPE 
[  3  1  RETURN  TO  MENU 


OPTION  <  &OPTION  <77  |" 


(TAB]  NEXT  FIELD,  (RETURN]  TAKE  ACTION,  [ PF3  ]  QUIT 


IF  &OPTION  EQ  2  GOTO  AMV2A2; 

IF  &OPTION  EQ  1  GOTO  AMV2A1 ; 

IF  &OPTION  EQ  3  GOTO  TWO; 

GOTO  AMV2 
* 

AMV2A2 

* 

CRTFORM  LINE  1 

M _ _ _  _ _  _ 

-  " |  SYS  TYPE  AND  SUBTYPE  SELECTION  ( PROTYP  SEGMENT) 


<77  |" 
TYPE 
SUBTYPE 
<77  I" 


<  & PRO_TYP  <77 

<  &PRO  STYP  <77 


[TAB]  NEXT  FIELD,  (RETURN]  TAKE  ACTION,  [ PF3  ]  QUIT 


TABLE  FILE  PROPULSR 
HEADING  CENTER 

"PROPULSR  FILE  SPECIFIC  AMV  DATABASE  REFERENCES" 

ft  f» 

PRINT  PRO_TYP  AS  'TYPE'  PROSTYP  AS  'STYP' 

SHIPID  AS  'SHIP'  SHIP_NAME  AS  'SHIP  NAME'  SHIP_FLAG  AS  'FLAG' 
IF  PROTYP  IS  6PRO_TYP 
IF  PRO  STYP  IS  &PRO__STYP 
END 


-GOTO  PAMV 
_  * 

-AMV2A1 
-  * 

TABLE  FILE  PROPULSR 
HEADING  CENTER 

"ALL  PROPULSR  FILE  AMV  REFERENCES" 

H  It 

PRINT  PRO  TYP  AS  'TYPE'  PRO  STYP  AS  'STYP' 


B-330-12 


v 

£ 


p. 


.-vyv.-v.T?v?\Tr.-> V.T>  7  \ 


SHIP  ID  AS  'SHIP'  SHIP 
BY  PRO_TYP  NOPRINT 
BY  PRO_STYP  NOPRINT 
END 
.  * 

-PAMV 
.  * 

-RUN 

-GOTO  AMV2 
.  • 

-LIT2 
.  * 

-CRTFORM  LINE  1 


NAME  AS  'SHIP  NAME'  SHIP  FLAG  AS  'FLAG' 


t 

S’ 


PARTIAL  OR  FULL  REPORT  SELECTION  OPTIONS 


-"1 

<77 

1  " 

-Ml 

[1] 

ALL  LIT  REFS  IN  PROPULSR  FILE 

<77  |  " 

-"1 

12] 

REFS  ASSOCIATED  WITH  SPECIFIC 

<77  |" 

-"1 

SYS  TYPE/SUBTYPE 

<77  |  - 

! 

(3] 

RETURN  TO  MENU 

<77  |  - 

-"1 

<77 

1" 

-"1 

OPTION  < &OPTION  <77  | " 

-"1 

<77 

1  " 

-"1 

<77 

i  " 

-"I 

<77 

1  " 

| 

<77 

1  " 

| 

<77 

1  " 

-"I 

<77 

1  " 

-"1 

<77 

1  " 

-"1 

w 

[TAB]  NEXT 

FIELD,  [RETURN]  TAKE  ACTION,  [ PF3 ] 

QUIT  | 

—  * 

-IF  ^OPTION 

EQ  2 

GOTO 

LIT2A2; 

-IF  &OPTION 

EQ  1 

GOTO 

LIT2A1; 

-IF  &OPTION 

EQ  3 

GOTO 

TWO; 

-GOTO  LIT2 
-  * 

-LIT2A2 

-CRTFORM  LINE  1 

11 

SYS  TYPE  AND  SUBTYPE  SELECTION  ( PROSYS  SEGMENT) 


1  <77 

1  TYPE 

II 

<16  <  SPRO  TYP 

<77  |” 

1  SUBTYPE 

<16  <  4PRO~STYP 

<77  r 

1  <77 

" 

1  <77 

" 

- 

1  <77 

" 

1  <77 

" 

|  <77 

" 

1  <77 

" 

1  <77 

" 

1  <77 

" 

1  <77 

" 

|  <77 

" 

1  <77 

" 

1 

[TAB]  NEXT  FIELD, 

[RETURN]  TAKE  ACTION,  [  PF3 ]  QUIT  I 

B-330-13 


f 


V 

f 


I  * 

1 


■ 
- 
* 


TABLE  FILE  PROPULSR 
HEADING  CENTER 

"PROPULSR  FILE  SPECIFIC  LITERATURE  REFERENCES 

it  i* 

PRINT  PRO_TYP  AS  'TYPE'  PRO_STYP  AS  'STYP' 
REF_NUM  AS  'REF'  REF_DESC  AS  'DESCRIPTION' 

IF  PROTYP  IS  &PRO_TYP 
IF  PRO_STYP  IS  &PRO_STYP 
END 
_  * 

-GOTO  PL IT 
__  * 

-LIT2A1 
_  * 

TABLE  FILE  PROPULSR 
HEADING  CENTER 

"ALL  PROPULSR  FILE  LITERATURE  REFERENCES" 

ti  n 

PRINT  PROJTYP  AS  'TYPE'  PRO_STYP  AS  'STYP' 
REF_NUM  AS  'REF'  REF_DESC  AS  'DESCRIPTION' 

BY  PROTYP  NOPRINT 
BY  PROSTYP  NOPRINT 
END 


-RUN 

-GOTO  LIT2 
_* 

-THREE 
_  * 

OFFLINE  CLOSE 
ONLINE 
EX  OEB300 
END 
_* 

-RUN 

-GOTO  TOP 


B-330-14 


«.  * 


WGTHANDL  FILE  REPORTING  SYSTEM  -  OEB340 


-♦DESIGNED  FOR  :  USCG  RSD  CENTER,  OCEAN  ENGINEERING  BRANCH 
-♦DESIGNED  BY  :  M.  J,  STEVENS  ( VTC ) 

-♦DATE  LAST  REV  :  4/30/87 


-TOP 

-DEFAULTS  SOPTION-O,  SWT  TYP-S$$$$$,  SWT_STYP-$$$$  ,  SMFR_ID-S$$ 
-DEFAULTS  SMFR  NO-$$$$$$f $$$$$ 

-CRTFORM  LINE  I 


1 

WGTHANDL  FILE  REPORTING  SYSTEM  -  OEB340 

1" 

II 

1 

1 

1 

REPORTING  SYSTEM  OPTIONS 

1  ” 

i  n 

1  M 

l  n 

1 

i 

(1)  OUTPUT  OPTIONS 

1 

1  " 

i 

[2)  REPORT  OPTIONS 

1  H 

i 

t 

[3)  EXIT  PROGRAM 

(  '* 

1  ** 

i 

i 

OPTION  — >  <  SOPTION 

1  " 

i  <77  r 

1 

1  <77  |" 

1  <77  |" 

ii 

1 

(TAB)  NEXT  FIELD,  (RETURN)  TAKE  ACTION,  ( PF3 )  QUIT 

1 " 

»» 

-IF  SOPTION  EQ  1  GOTO  ONE; 
-IF  SOPTION  EQ  2  GOTO  TWO; 
-IF  SOPTION  EQ  3  GOTO  THREE; 
-GOTO  TOP 
_* 

-ONE 
_  * 

-CRTFORM  LINE  1 


"  |  REPORT  OUTPUT  OPTIONS  MENU  |  " 

M  _ _ _ _ _  _ _  _  _  _  _  _ _  M 


n 


OPTIONS  LIST 


n 


(1]  DIRECT  OUTPUT  TO  CRT 
(2}  DIRECT  OUTPUT  TO  PRT 
[3]  REPORT  DIRECTORY 


ti 


"  |  OPTION  — >  < SOPTION 

"i  i  " 


Kv 

S 


-"|  <77  |" 
-"|  <77  |" 


[TAB]  NEXT  FIELD,  (RETURN)  TAKE  ACTION,  ( PF3 )  QUIT 


-IF  SOPTION  EQ  1  GOTO  MAINl; 


-IF  &OPTION  EQ  2  GOTO  HULL1 ; 
-IF  &OPTION  EQ  3  GOTO  TOP; 
-GOTO  ONE 
_  * 

-MAIN1 
_  * 

OFFLINE  CLOSE 
ONLINE 
END 
_  * 

-CRTFORM  LINE  1 


"  |  ALL  REPORTS  WILL  OUTPUT  TO  SCREEN  |" 

II  —  —  —  —  —  —  —  —  —  —  —  —  —  —  »  —  —  —  —  .  —  —  —  —  ™  —  w 


II  It 

"  PRESS  RETURN  TO  CONTINUE  <SOPTION  " 

II  It 


-RUN 

-GOTO  ONE 
_  * 

-HULLl 
_  * 

OFFLINE 
END 
_  * 

-CRTFORM  LINE  1 

n  « 


"  I  ALL  REPORTS  WILL  OUTPUT  TO  PRINTER  |" 


"  PRESS  RETURN  TO  CONTINUE  <tOPTION  " 

n  n 


-RUN 

-GOTO  ONE 


-TWO 

—a********************************************************* 
_  • 

-CRTFORM  LINE  1 

_  ii _ 

WGTHANDL  TILE  REPORT  OPTIONS  -  OEB340 


I 


OPTIONS  LIST 


I 

I 


>  V 


<77 

<77  I” 


131  AMV  REFERENCE  REPORT 
[4]  LITERATURE  REF  REPORT 
(51  REPORT  DIRECTORY 

OPTION  — >  < (OPTION 


( TAB  J  NEXT  FIELD,  { RETURN  J  TAKE  ACTION,  [PF3]  QUIT 


-IF  (OPTION  EQ  1  GOTO  MAIN2; 

-IF  (OPTION  EQ  2  GOTO  HULL2 ; 

-IF  (OPTION  EQ  3  GOTO  AMV2 ; 

-IF  (OPTION  EQ  4  GOTO  LIT2; 

-IF  (OPTION  EQ  5  GOTO  TOP; 

-GOTO  TWO 
_  * 

-MAIN2 
-  * 

TABLE  FILE  WGTHANDL 
HEADING  CENTER 

"WGTHANDL  FILE  TYPES/SUBTYPES  AND  GENERAL  COMMENTS 

n  n 

PRINT  WTTYP  AS  'TYPE'  OVER  WT_STYP  AS  'STYP'  SKIP-LINE  OVER 
WTCOM1  AS  'COMM'  OVER  WT_COM2  AS  "  OVER  WT_COM3  AS  " 

BY  WTTYP  NOPRINT 
BY  WTSTYP  NOPRINT 
END 
_  * 

-RUN 

-GOTO  TWO 
_  * 

-HULL2 
-  * 

-CRTFORM  LINE  1 

_  H _  ^  ___  ^  ___  __  __  ^  __ 

-”|  SYS  DESIGN  REP  OPTIONS  FOR  WGTHANDL  FILE  -  OEB340 


OPTIONS  LIST 

]  SYS  DESIGN  REPORT 
1  SYS  DESCRIPTION  REPORT 
1  SYS  SPECIFICATIONS  REPORT 
1  RETURN  TO  MENU 

OPTION  -->  < (OPTION 


(TAB)  NEXT  FIELD,  (RETURN)  TAKE  ACTION,  [ PF3 1  QUIT 


-IF  (OPTION  EQ 
-IF  (OPTION  EQ 
-IF  (OPTION  EQ 
-IF  (OPTION  EQ 
-GOTO  HULL2 


1  GOTO  HULL2A; 

2  GOTO  HULL2B; 

3  GOTO  HULL2C; 

4  GOTO  TWO; 


B-340-3 


b-jr"  " 


HULL2A 


CRTFORM  LINE  1 


"1 

*1 

PARTIAL  OR  FULL  REPORT  SELECTION  OPTIONS 

"I  <77 

1  " 

M  1 

(1) 

ALL  SYSTEMS  IN  WGTHANDL  FILE 

<77  |  " 

ft  | 

(2| 

SYSTEMS  ASSOCIATED  WITH  SPECIFIC 

<77 

ft  j 

WT  HANDLING  TYPE/SUBTYPE 

<77  |" 

ft  I 

[3] 

RETURN  TO  MENU 

<77  |  " 

"|  <77 

1  " 

ft  | 

OPTION  < (OPTION  <77  | " 

"|  <77 

1  " 

”|  <77 

1  " 

"|  <77 

1  " 

"  |  <77 

1  " 

"|  <77 

1  " 

"  |  <77 

1  " 

”|  <77 

ft 

1  " 

"  1 
n 

[TAB] 

NEXT 

FIELD,  ( RETURN  J  TAKE  ACTION,  [ P  F  3  j 

QUIT  I 

* 

IF  &OPTION 

EQ 

2 

GOTO 

HULL2A2; 

IF  (OPTION 

EQ 

1 

GOTO 

HULL2A1; 

IF  (OPTION 

EQ 

3 

GOTO 

HULL2 

t 

GOTO  HULL2A 
* 

HULL2A2 

* 

CRTFORM  LINE  1 


SYS  TYPE  AND  SUBTYPE  SELECTION  (WTSYS  SEGMENT ) 


I  <77 

1  TYPE 

W 

<16  <  (WT  TYP 

<77  |  " 

1  SUBTYPE 

<16  <  (WT’STYP 

<77  |  " 

1  <77 

" 

1  <77 

" 

1  <77 

" 

1  <  7  / 

" 

1  <77 

" 

1  <77 

" 

1  <77 

" 

1  <77 

" 

1  <77 

" 

1  <77 

" 

1  <77 

" 

1 

(TAB)  NEXT  FIELD, 

[ RETURN  1  TAKE  ACTION,  [ PF3 )  QUIT 

TABLE  FILE  WGTHANDL 
HEADING  CENTER 

"WGTHANDL  FILE  SPECIFIC  SYSTEMS/DESIGN  NUMBERS  AND  GENERAL  COMMENTS" 

n  n 

PRINT  WT  TYP  AS  'TYPE'  OVER  WTSTYP  AS  'STYP'  OVER 
MFR  ID  AS  ' MFR '  OVER  MFR_NO  AS  'NUM'  SKIP-LINE  OVER 
MFR_COMl  AS  'COMM'  OVER  HFR_COH2  AS  "  OVER  MFR_COM3  AS  " 

BY  MFRID  NOPRINT 
BY  MFR  NO  NOPRINT 


* 


IF  WT_TYP  IS  &WT_TYP 
IF  WT_STYP  IS  4WT_STYP 
END 
.  * 

-GOTO  P2A 
.  * 

-HULL2A1 
.  * 

TABLE  FILE  WGTHANDL 
HEADING  CENTER 

"ALL  WGTHANDL  FILE  SYSTEMS/DESIGN  NUMBERS  AND  GENERAL  COMMENTS 

M  H 

PRINT  WTTYP  AS  'TYPE'  OVER  WT_STYP  AS  'STYP'  OVER 
MFR_ID  AS  ' MFR '  OVER  MFR_NO  AS  'NUM'  SKIP-LINE  OVER 
MrR_COMl  AS  'COMM'  OVER  MrR_COM2  AS  "  OVER  MFR_COM3  AS  " 

BY  WT_TYP  NOPRINT 
BY  WT  STYP  NOPRINT 
BY  MFR_ID  NOPRINT 
BY  MFRNO  NOPRINT 
END 
.  * 

-P2A 
.  * 

-RUN 

-GOTO  HULL2A 

.  * 

-HULL2B 
.  * 

-CRTFORM  LINE  1 


1 

»1 

PARTIAL  OR  FULL  REPORT  SELECTION  OPTIONS 

I 

-"1 

<77 

1  " 

-”l 

111 

ALL  DESCRIPTIONS  IN  WGTHANDL  FILE 

<77 

1  " 

-"I 

[2] 

DESCRIPTION  ASSOCIATED  WITH  SPECIFIC 

<77 

1  " 

-"1 

SYS  TYPE/SUBTYPE 

<77 

i  " 

-"1 

(3) 

DESCRIPTION  ASSOCIATED  WITH  SPECIFIC 

<77 

1  " 

-"1 

SYS  TYPE/SUBTYPE  AND  MFR/MFR  NO 

<77 

1  " 

-"1 

[4] 

RETURN  TO  MENU 

<77 

1  " 

-"I 

<77 

1" 

-"1 

OPTION  < 4 OPT I ON  <77  |" 

-M 1 

<77 

1  " 

-"1 

<77 

1  " 

1 

<77 

1  " 

1 

<77 

1  " 

-nl 

w 

<77 

1  " 

-"1 

H 

(TAB}  NEXT  FIELD,  (RETURN)  TAKE  ACTION,  [ PF3 ) 

QUIT 

1 

-IF  40PTI0N  EQ  1  GOTO  HULL2B1 ; 
-IF  40PTI0N  EQ  2  GOTO  HULL2B2; 
-IF  60PTI0N  EQ  3  GOTO  HULL2B3 ; 
-IF  40PTI0N  EQ  4  GOTO  HULL2 ; 
-GOTO  HULL2B 
.* 

-HULL2B1 


TABLE  FILE  WGTHANDL 
HEADING  CENTER 

"WGTHANDL  FILE  SYSTEM  DESCRIPTIONS  AND  GENERAL  COMMENTS’ 
«  «• 

PRINT  WT  TYP  AS  'TYPE'  OVER  WT  STYP  AS  'STYP'  OVER 


B-340-5 


3 


mJk  mJ»  m J  nm  *  ■  ’j*  •  «  *  »  *  ■  “  ** 


MFR_ID  AS  '  MFR '  OVER  MFR_NO  AS  ’NUM'  SKIP-LINE  OVER 

WT_PRI_FN  AS  ' PRFN '  OVER  WT_PWR_TYP  AS  'PWR'  OVER  WT_DYN  POS  AS  ' DPOc 
OVER  DESC_COMl  AS  'COMM'  OVER  DESC_COM2  AS  ''  OVER  DESC  COM3  AS  '' 

BY  WT  TYP  NOPRINT 
BY  WT'STYP  NOPRINT 
BY  MFRID  NOPRINT 
BY  MFR_NO  NOPRINT 
END 


-GOTO  P2B 
_  * 

-HULL2B2 


-CRTFORM  LINE  1 

_« _ .< 

-H|  SYS  TYPE/SUBTYPE  SELECTION  (WTSYS  SEGMENT)  | 


1  <77 
|  TYPE 

" 

<16  < 

iWT  TYP 

<77  |  " 

1  SUBTYPE 

<16  < 

fcWT  STYP 

<77  |  " 

1  <77 

n 

1  <77 

ft 

1  <77 

n 

1  <77 

N 

1  <77 

n 

1  <77 

1  <77 

♦» 

1  <77 

it 

1  <77 

it 

1  <77 

ft 

1  <77 

n 

(TAB)  NEXT  riELD.  (RETURN)  TAKE  ACTION,  tPP3)  QUIT 


TABLE  FILE  WGTHANDL 
HEADING  CENTER 

"SPECIFIC  WGTHANDL  FILE  SYSTEM  DESCRIPTIONS  AND  GENERAL  COMMENTS" 

n  w 


PRINT  WT  TYP  AS  'TYPE*  OVER  WTSTYP  AS  'STYP'  OVER 
MFRID  AS  'MFR'  OVER  MFRNO  AS  'NUN'  SKIP-LINE  OVER 

WTPRIFN  AS  'PRFN'  OVER  WT  PWR  TYP  AS  'PWR'  OVER  WTDYN  POS  AS  ' DPOS ' 

OVER  DESCCOM1  AS  'COMM'  OVSR  DSSCCOM2  AS  "  OVER  DESCCOM3  AS  " 

BY  MFRID  NOPRINT 
BY  MFRNO  NOPRINT 
IF  WTTYP  IS  SWT  TYP 
IF  WTSTYP  IS  SW?_STYP 
END 
_  * 

-GOTO  P2B 
_  * 

-HULL2B3 
_  * 

-CRTFORM  LINE  I 

_  M _ _ _ _ _  ", 

-"|  SYS  TYPE/SUBTYPE  AND  MFR/MFR  NO  SELECTION  (WTSYS  SEGMENT)  ( 


-"1 

<77  r 

I 

TYPE 

<16 

< 

SWT  TYP 

<77  |  " 

-"1 

SUBTYPE 

<16 

< 

SWTSTYP 

<77  |" 

1 

<77  |  " 

-"  | 

MFR 

<16 

< 

SMFR  ID 

<77  |  " 

1 

MFR  NO 

<16 

< 

SMFR_NO 

<77  |  " 

B-340-6 


5 


PARTIAL  OR  FULL  REPORT  SELECTION  OPTIONS 


1 

<77 

1" 

-"1 

[i] 

ALL  SPECIFICATIONS  IN  WGTHANDL 

FILE 

<77 

r 

-H 1 

[2] 

SPECIFICATIONS  ASSOCIATED  WITH 

SPECIFIC 

<77 

i " 

-"I 

SYS  TYPE/SUBTYPE 

<77 

r 

1 

(3) 

SPECIFICATIONS  ASSOCIATED  WITH 

SPECIFIC 

<77 

i n 

-"I 

SYS  TYPE/SUBTYPE  AND  MFR/MFR  NO 

<77 

i" 

1 

(41 

RETURN  TO  MENU 

<77 

H 

1 

1 

<77 

r 

1 

OPTION  < SOPTION  <77  | 

n 

-•’1 

<77 

i " 

-"1 

<77 

i " 

1 

<77 

i " 

1 

<77 

i " 

-"1 
II  _ 

<77 

i " 

1 

n 

( TAB ]  NEXT  FIELD,  (RETURN!  TAKE  ACTION, 

(  PF3 1  QUIT 

1 

-IF  SOPTION  EQ  1 
-IF  SOPTION  EQ  2 
-IF  SOPTION  EQ  3 
-IF  SOPTION  EQ  4 
-GOTO  HULL2C 
.* 

-HULL2C1 
.  * 


GOTO  HULL2C1; 
GOTO  HULL2C2; 
GOTO  HULL2C3; 
GOTO  HULL2 ; 


B-340-7 


V.  W-L 


w® 


LtSJVrul 


TABLE  FILE  WGTHANDL 
HEADING  CENTER 

"WGTHANDL  FILE  SYSTEM  SPECIFICATIONS  AND  GENERAL  COMMENTS" 

It  M 

PRINT  WT_TYP  AS  'TYPE'  OVER  WT_STYP  AS  'STYP'  OVER 
MFR_ID  AS  ' MFR '  OVER  MFR_NO  AS  'NUM'  SKIP-LINE  OVER 

WT_REACH  AS  ' RCH '  OVER  WT_CAP  AS  'CAP'  OVER  WT_WEIGHT  AS  ' WT ’  OVER 
WT_VEL  AS  'VEL'  OVER  WT_MOM  AS  'MOM'  OVER  WT_VOL  AS  'VOL'  OVER 
WT_COST  AS  'COST'  OVER 

SPEC_COMl  AS  'COMM'  OVER  SPEC_COM2  AS  *'  OVER  SPEC_COM3  AS  '' 

BY  WTTYP  NOPRINT 
BY  WTSTYP  NOPRINT 
BY  MFR  ID  NOPRINT 
BY  MFRNO  NOPRINT 
END 
_  * 

-GOTO  P2C 
_  * 

-HULL2C2 
_  • 

-CRTFORM  LINE  1 


I 

SYS 

TYPE/SUBTYPE  SELECTION  (WTSYS  SEGMENT)  | 

1  <77 

" 

|  TYPE 

<16 

<  t WT  TYP 

<77  |  " 

|  SUBTYPE 

<16 

<  4WT  STYP 

<77 

1  <77 

n 

1  <77 

it 

1  <77 

it 

1  <77 

H 

1  <77 

It 

1  <77 

n 

1  <77 

n 

1  <77 

n 

1  <77 

it 

1  <77 

" 

1  <77 

it 

1 

[TAB) 

NEXT  FIELD, 

[RETURN)  TAKE  ACTION,  [PF3J  QUIT  | 

TABLE  FILE  WGTHANDL 
HEADING  CENTER 

"SPECIFIC  WGTHANDL  FILE  SYSTEM  SPECIFICATIONS  AND  GENERAL  COMMENTS" 

«  n 

PRINT  WTTYP  AS  'TYPE'  OVER  WTSTYP  AS  'STYP'  OVER 

MFRID  AS  'MFR'  OVER  MFR_NO  AS  'NUM'  SKIP-LINE  OVER 

WT_ REACH  AS  'RCH'  OVER  WT  CAP  AS  'CAP'  OVER  WT  WEIGHT  AS  'WT'  OVER 

WT_VEL  AS  'VEL'  OVER  WT_mSM  AS  'MOM'  OVER  WT_v5l  AS  'VOL'  OVER 

WT_COST  AS  'COST'  OVER 

SPEC_COMl  AS  'COMM'  OVER  SPEC_COM2  AS  "  OVER  SPECCOM3  AS  " 

BY  MFRID  NOPRINT 
BY  MFR  NO  NOPRINT 
IF  WT_TYP  IS  4WT  TYP 
IF  WT_STYP  IS  6W?_STYP 
END 
_  * 

-GOTO  P2C 
_  * 

-HULL2C3 
_  * 

-CRTFORM  LINE  1 


B-340-8 


V.v.v.v.v.v.v.v 


SYS  TYPE/SUBTYPE  AND  MFR/MFF?  NO  SELECTION  (WTSYS  SEGMENT! 


"|  <77  |  “ 

" |  TYPE 
" |  SUBTYPE 
”|  <77  |" 

"  |  MFR 
"  I  MFR  NO 

"i  <77  r 

"|  <77  I" 
"|  <77  |“ 
”|  <77 
"|  <77 
"|  <77  |  " 
"|  <77  |" 
"I  <77  I" 


<16  <  &WT_TYP  <77 
<16  <  4WT_STYP  <77 

<16  <  SMFR_I D  <' 

<16  <  4MFR  NO  <1 


NEXT  FIELD,  (RETURN)  TAKE  ACTION,  (PF3)  QUIT 


TABLE  FILE  WGTHANDL 
HEADING  CENTER 

"SPECIFIC  WGTHANDL  FILE  SYSTEM  SPECIFICATIONS  AND  GENERAL  COMMENTS" 

n  m 

PRINT  WT  TYP  AS  'TYPE'  OVER  WT  STYP  AS  'STYP'  OVER 

MFRID  AS  ' MFR '  OVER  MFR  NO  AS~'NUM'  SKIP-LINE  OVER 

WTREACH  AS  ' RCH '  OVER  WT  CAP  AS  'CAP'  OVER  WT  WEIGHT  AS  'WT'  OVER 

WTVEL  AS  'VEL'  OVER  WTMSM  AS  'MOM'  OVER  WT  V5L  AS  'VOL'  OVER 

WT_COST  AS  'COST'  OVER 

SPECCOM1  AS  'COMM'  OVER  SPECCOM2  AS  "  OVER  SPECCOH3  AS  " 

IF  WT_TYP  IS  &WT_TYP 
IF  WTSTYP  IS  iWTSTYP 
IF  MFRID  IS  &MFRID 
IF  MFR  NO  IS  &MFR  NO 


-RUN 

-GOTO  HULL2C 
-  * 

-AMV2 
_  * 

-CRTFORM  LINE  1 


PARTIAL  OR  FULL  REPORT  SELECTION  OPTIONS 


(1-)  ALL  AMV  REFS  IN  WGTHANDL  FILE 

(2)  REFS  ASSOCIATED  WITH  SPECIFIC 
SYS  TYPE/SUBTYPE 

[ 3 )  RETURN  TO  MENU 

OPTION  < 40PTI0N  <77  I" 


/V 


V 


[TAB]  NEXT  FIELD ,  [RETURN)  TAKE  ACTION, 


IF  SOPTION  EQ  2  GOTO  AMV2A2 
IF  SOPTION  EQ  1  GOTO  AMV2A1 
IF  &OPTION  EQ  3  GOTO  TWO; 
GOTO  AMV2 


AMV2A2 


CRTFORM  LINE  1 


[TAB]  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  [ PF3 ]  QUIT 


TABLE  FILE  WGTHANDL 
HEADING  CENTER 

"WGTHANDL  FILE  SPECIFIC  AMV  DATABASE  REFERENCES" 

If  If 

PRINT  WTTYP  AS  'TYPE'  WT  STYP  AS  'STYP' 

SHIPID  AS  'SHIP'  SHIPNAME  AS  'SHIP  NAME'  SHIPFLAG  AS 
IF  WT_TYP  IS  SWT_TYP 
IF  WTSTYP  IS  4.WTSTYP 
END 
* 

GOTO  PAMV 
* 

AMV2A1 

* 

TABLE  FILE  WGTHANDL 
HEADING  CENTER 

"ALL  WGTHANDL  FILE  AMV  REFERENCES" 

n  n 

PRINT  WTTYP  AS  'TYPE'  WfSTYP  AS  'STYP' 

SHIPID  AS  'SHIP'  SHIPNAME  AS  'SHIP  NAME'  SHIPFLAG  AS 
BY  WTTYP  NOPRINT 
BY  WTSTYP  NOPRINT 
END 
* 

PAMV 

* 

RUN 

GOTO  AMV 2 


B-340-10 


-CRTFORM  LINE  1 


1 

11 

PARTIAL  OR  FULL  REPORT  SELECTION  OPTIONS 

-M  1 

<77 

1  " 

-  "  1 

[1]  ALL  LIT  REFS  IN  WGTHANDL  FILE 

<77  j  " 

-  "  1 

(2]  REFS  ASSOCIATED  WITH  SPECIFIC 

<77  |  " 

-  ”  1 

SYS  TYPE/SUBTYPE 

<77  1" 

-  "  1 

[3]  RETURN  TO  MENU 

<77 

-  M  1 

<77 

1  " 

I 

OPTION  < AOPTION  <77  |" 

-  ••  1 

<77 

1  " 

-  M  j 

<77 

1  " 

-  "  1 

<77 

1  M 

-  ’*  1 

<77 

1  tl 

-  ••  1 

<77 

1  n 

-  M 

<77 

1  ’* 

ft 

<77 

[  ft 

1 

tl 

[  TAB 

NEXT  FIELD,  (RETURN)  TAKE  ACTION,  [ PF3 ] 

QUIT  , 

_  * 

-IF 

AOPTION 

EQ 

2 

GOTO 

LIT2A2; 

-IF 

AOPTION 

EQ 

1 

GOTO 

LIT2A1 ; 

-IF 

AOPTION 

EQ 

3 

GOTO 

TWO; 

GOTO  LIT2 
* 

LIT2A2 

* 

CRTFORM  LINE  1 


SYS  TYPE  AND  SUBTYPE  SELECTION  (MAIN  SEGMENT) 


<77  I" 
TYPE 
SUBTYPE 
<77  I" 


<16  <  AWTTYP  <77 
<16  <  AWT  STYP  <77 


<77  |" 
<77  I” 
<77  |  " 
<77  |" 
<77  |" 
<77  I" 
<77  |  " 
<77  |  " 
<77  (  " 
<77  I  " 


(TAB)  NEXT  FIELD,  (RETURN]  TAKE  ACTION,  [ PF3  ]  QUIT 


TABLE  FILE  WGTHANDL 
HEADING  CENTER 

"WGTHANDL  FILE  SPECIFIC  LITERATURE  REFERENCES" 


PRINT  WT_TYP  AS  'TYPE'  WT_STYF  AS  'STYP' 
REF_NUM  AS  'REF'  REF_DESC  AS  'DESCRIPTION' 
IF  WTTYP  IS  4WT_TYP 
IF  WT_STYP  IS  4WT_STYP 
END 
.* 

-GOTO  PL IT 


B-340-1  1 


1  "^\.^  '.•'» '  *V  '.V '  "V  ■",' 1  ^  , 


-LIT2A1 


TABLE  FILE  WGTHANDL 
HEADING  CENTER 

"ALL  WGTHANDL  FILE  LITERATURE  REFERENCES” 


PRINT  WT  TYP  AS  'TYPE'  WT_STYP  AS  'STYP' 
REF_NUM  AS  'REF'  REF_DESC  AS  'DESCRIPTION' 
BY  WT_TYP  NOPRINT 
BY  WT_STYP  NOPRINT 
END 


-PLIT 
.  * 

-RUN 

-GOTO  LIT2 
_  * 

-THREE 
_  * 

OFFLINE  CLOSE 
ONLINE 
EX  OEB300 
END 
_  * 

-RUN 

-GOTO  TOP 


B-340-13 


7^ 

s' 


3 


» 


>1 

V 


ft 


t 


a 


a 


«« 

1 


* 

V 


f 

'3 


M 


VESSAUTO  FILE  REPORTING  SYSTEM  -  OEB350 


-•DESIGNED  FOR 
-•DESIGNED  BY 
-•DATE  LAST  REV 


USCG  R&D  CENTER,  OCEAN  ENGINEERING  BRANCH 
M.  J.  STEVENS  ( VTC ) 

5/05/87 


DEFAULTS  (OPTION-O,  (VS  TYP-$$$$$$,  (VS_STYP«$$$$ ,  (MFR_ID-$$$ 
DEFAULTS  (MFR  NO-$$$$$Sf $$$$$ 

CRTFORM  LINE  I 

"|  VESSAUTO  FILE  REPORTING  SYSTEM  -  OEB350 


REPORTING  SYSTEM  OPTIONS 

(1]  OUTPUT  OPTIONS 

(2]  REPORT  OPTIONS 

(3]  EXIT  PROGRAM 


<77  |  " 
<77  |  " 
<77  I" 


OPTION  — >  <(OPTION 


[TAB]  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  [ PF3 ]  QUIT 


IF  (OPTION 

EQ  1 

GOTO 

ONE; 

IF  (OPTION 

EQ  2 

GOTO 

TWO; 

IF  (OPTION 
GOTO  TOP 

* 

ONE 

* 

EQ  3 

GOTO 

THREE 

CRTFORM  LINE  1 

REPORT  OUTPUT  OPTIONS  MENU 


OPTIONS  LIST 

[1]  DIRECT  OUTPUT  TO  CRT 
( 2  ]  DIRECT  OUTPUT  TO  PRT 
[3]  REPORT  DIRECTORY 


I  <77 
I  <77 


OPTION  -->  <(OPTION 


(TAB)  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  [ PF3 ]  QUIT 


IF  &OPTION  EQ  2  GOTO  HULLl ; 
IF  &OPTION  EQ  3  GOTO  TOP; 
GOTO  ONE 
* 

MAINl 

* 

OFFLINE  CLOSE 
ONLINE 
END 
.  • 

CRTFORM  LINE  1 


"  |  ALL  REPORTS  WILL  OUTPUT  TO  SCREEN 

ii  ____________________________ _ _  _  M 


”  PRESS  RETURN  TO  CONTINUE  <40PTI0N  " 

n  it 


RUN 

GOTO  ONE 
* 

HULLl 

* 

OFFLINE 

END 

* 

CRTFORM  LINE  1 

n  n 


"  I  ALL  REPORTS  WILL  OUTPUT  TO  PRINTER 

"  ______________________________________ n 


"  PRESS  RETURN  TO  CONTINUE  <SOPTION  " 

n  n 

* 

RUN 

GOTO  ONE 
* 


TWO 


_  * 

-CRTFORM  LINE  1 

H 


WGTHANDL  FILE  REPORT  OPTIONS  -  OEB350 


(  3 !  AMV  REFERENCE  REPORT 
[4)  LITERATURE  REF  REPORT 
(  5 ]  REPORT  DIRECTORY 


~"|  OPTION  — >  C&OPTION 

I 

-''I  <77  |" 

-M|  <77  I" 


l TAB]  NEXT  FIELD,  (RETURN]  TAKE  ACTION,  [ PF3  ]  QUIT 


-IF 

40PTI0N 

EQ 

1 

GOTO 

MAIN2; 

-IF 

40PTI0N 

EQ 

2 

GOTO 

HULL 2 ; 

-IF 

40PTI0N 

EQ 

3 

GOTO 

AMV2; 

-IF 

40PTI0N 

EQ 

4 

GOTO 

LIT2; 

-IF 

40PTI0N 

EQ 

5 

GOTO 

TOP; 

-GOTO  TWO 
-  * 

-MAIN2 
—  * 

TABLE  FILE  VESSAUTO 
HEADING  CENTER 

"VESSAUTO  FILE  TYPES/SUBTYPES  AND  GENERAL  COMMENTS 

n  fl 

PRINT  VSTYP  AS  'TYPE'  OVER  VSSTYP  AS  'STYP'  SKIP-LINE  OVER 
VS_COMl  AS  'COMM'  OVER  VS_COM2-AS  "  OVER  VS_COM3  AS  " 

BY  VSTYP  NOPRINT 
BY  VSSTYP  NOPRINT 
END 
_  * 

-RUN 

-GOTO  TWO 
-  * 

-HULL2 
-  * 

-CRTFORM  LINE  1 


SYS  DESIGN  REP  OPTIONS  FOR  VESSAUTO  FILE  -  OEB350 


”1  OPTIONS  LIST 

"I 

"|  l 1 ]  SYS  DESIGN  REPORT 

"|  (2]  SYS  DESCRIPTION  REPORT 

"I  (3]  SYS  SPECIFICATIONS  REPORT 

"|  [4]  RETURN  TO  MENU 

"  I 

"|  OPTION  -->  < (OPTION 

"I 

"|  <77  I" 

"|  <77  |" 

"|  <77  I" 


(TAB]  NEXT  FIELD,  (RETURN)  TAKE  ACTION,  ( PF3 ]  QUIT 


IF  40PTI0N  EQ  1  GOTO  HULL2A; 
IF  40PTI0N  EQ  2  GOTO  HULL2B; 
■IF  40PTI0N  EQ  3  GOTO  HULL2C; 
■IF  40PTI0N  EQ  4  GOTO  TWO; 
•GOTO  HULL2 


B-350-3 


-HULL2A 
_  * 

-CRTFORM  LINE  1 


PARTIAL  OR  FULL  REPORT  SELECTION  OPTIONS 


- "  i  <77  r 


"  I  <77 
"I 

”|  <77 
”|  <77 
”  |  <77 
-  |  <77 
"  |  <77 
"  |  <77 
"  I  <77 


(1)  ALL  SYSTEMS  IN  VESSAUTO  FILE  <77  j" 

[2]  SYSTEMS  ASSOCIATED  WITH  SPECIFIC  <77 

AUTOMATION  TYPE/SUBTYPE  <77  |" 

[3J  RETURN  TO  MENU  <77  |" 

OPTION  <tOPTION  <77  | " 


-IF  tOPTION  EQ  2 
-IF  tOPTION  EQ  1 
-IF  tOPTION  EQ  3 
-GOTO  HULL2A 
-  * 

-HULL2A2 
-  * 

-CRTFORM  LINE  1 


(TAB)  NEXT  FIELD,  [RETURN)  TAKE  ACTION,  [ PF3 )  QUIT 


GOTO  HULL2A2; 
GOTO  HULL2A1; 
GOTO  HULL2 ; 


SYS  TYPE  AND  SUBTYPE  SELECTION  (VASYS  SEGMENT) 


<77  |  " 
TYPE 
SUBTYPE 
<77  I  " 


<16  <  tVSTYP  <77  | 
<16  <  tVS  STYP  <77  | 


[TAB]  NEXT  FIELD,  [RETURN)  TAKE  ACTION,  [PF31  QUIT 


TABLE  FILE  VESSAUTO 
HEADING  CENTER 

"VESSAUTO  FILE  SPECIFIC  SYSTEMS/DESIGN  NUMBERS  AND  GENERAL  COMMENTS’ 

*  I* 

PRINT  VS  TYP  AS  'TYPE'  OVER  VS_STYP  AS  ’STYP'  OVER 
MFR_ID  AS  ’MFR'  OVER  MFRNO  AS  'NUM'  SKIP-LINE  OVER 
MFRCOM1  AS  'COMM'  OVER  MFRCOM2  AS  "  OVER  MFR_COM3  AS  " 

BY  MFRID  NOPRINT 
BY  MFR  NO  NOPRINT 


B-350-4 


IF  VS_TVP  IS  4 VS _TYP 
IF  VS_STYP  IS  4 VS_STYP 
END 
_  * 

-GOTO  P2A 
—  * 

-HULL2A1 
_  * 

TABLE  FILE  VESSAUTO 
HEADING  CENTER 

"ALL  VESSAUTO  FILE  SYSTEMS/DESIGN  NUMBERS  AND  GENERAL  COMMENTS 

n  n 

PRINT  VS_TYP  AS  'TYPE'  OVER  VS_STYP  AS  'STYP'  OVER 

MFR_ID  AS  ' MFR '  OVER  MFR_NO  AS  'NUM'  SKIP-LINE  OVER 

MFR  CO Ml  AS  'COMM'  OVER  MrR_COM2  AS  "  OVER  MPRCOM3  AS  " 

BY  VSTYP  NOPRINT 
BY  VSSTYP  NOPRINT 
BY  MFR_I D  NOPRINT 
BY  MPR_NO  NOPRINT 
END 


-RUN 

-GOTO  HULL2A 
_  * 

-HULL2B 
_  * 

-CRTFORM  LINE  1 

-"I  PARTIAL  OR  FULL  REPORT  SELECTION  OPTIONS 


(1]  ALL  DESCRIPTIONS  IN  VESSAUTO  FILE 

(2]  DESCRIPTION  ASSOCIATED  WITH  SPECIFIC 
SYS  TYPE/SUBTYPE 

(3]  DESCRIPTION  ASSOCIATED  WITH  SPECIFIC 
SYS  TYPE/SUBTYPE  AND  MFR/MFR  NO 

(4]  RETURN  TO  MENU 


<77  |  " 
<77  |" 
<77  |" 
<77  |  " 
<77  I  " 


OPTION  < 40PTIQN  <77 


(TAB]  NEXT  FIELD,  (RETURN)  TAKE  ACTION,  ( PF3 ]  QUIT 


-IF  (OPTION  EQ  1  GOTO  HULL2B1 ; 

-IF  (OPTION  EQ  2  GOTO  HULL2B2 ; 

-IF  (OPTION  EQ  3  GOTO  HULL2B3; 

-IF  (OPTION  EQ  4  GOTO  HULL 2 ; 

-GOTO  HULL2B 
_  * 

-HULL2B1 
_  * 

TABLE  FILE  VESSAUTO 
HEADING  CENTER 

"VESSAUTO  FILE  SYSTEM  DESCRIPTIONS  AND  GENERAL  COMMENTS’ 

n  n 

PRINT  VS  TYP  AS  'TYPE'  OVER  VS  STYP  AS  'STYP'  OVER 


B-350-5 


'.■Vv:v%AvV' 


MFR_I D  AS  '  MFR '  OVER  MFR_NO  AS  'MUM'  SKIP-LINE  OVER 
VA_FN  AS  ' VAFN '  OVER  VA_IN1  AS  'INI'  OVER  VA_IN2  AS  'IN2'  OVER 
VA_IN3  AS  ' IN3 '  OVER  VA_OUTl  AS  'OUT1'  OVER  VA  OUT2  AS  'OUT2'  OVER 
VA  OUT 3  AS  ' OUT 3 ' 

OVfR  VA_COMl  AS  'COMM'  OVER  VA_COM2  AS  ''  OVER  VA_COM3  AS  '' 

BY  VSTYP  NOPRINT 
BY  VS_STYP  NOPRINT 
BY  MFRID  NOPRINT 
BY  MfR  NO  NOPRINT 
END 
_  * 

-GOTO  P2B 
_  * 

-HULL2B2 
_  • 

-CRTPORM  LINE  1 

H 


SYS  TYPE/SUBTYPE  SELECTION  (VASYS  SEGMENT) 


1  <77 

1  TYPE 

" 

<16  <  iVS  TYP 

<77  |  " 

1  SUBTYPE 

<16  <  &VS  STYP 

<77  |  " 

1  <77 

If 

1  <77 

tt 

1  <77 

ft 

1  <77 

t« 

i  <77 

•t 

1  <77 

ft 

1  <77 

ft 

1  <77 

tt 

1  <77 

tt 

1  <77 

it 

1  <77 

»* 

1 

[TAB]  NEXT  FIELD, 

(RETURN)  TAKE  ACTION,  [ PF3 )  QUIT  1 

TABLE  FILE  VESSAUTO 
HEADING  CENTER 

"SPECIFIC  VESSAUTO  FILE  SYSTEM  DESCRIPTIONS  AND  GENERAL  COMMENTS" 

*»  n 

PRINT  VSTYP  AS  'TYPE'  OVER  VSSTYP  AS  'STYP'  OVER 

MFRID  AS  'MFR'  OVER  NFRNO  AS  'NUH'  SKIP-LINE  OVER 

VAFN  AS  'VAFN'  OVER  VAINl  AS  'INI'  OVER  VAIN2  AS  'IN2'  OVER 

VAIN3  AS  ' IN3 '  OVER  VA_OUTl  AS  'OUT1'  OVER  VAOUT2  AS  'OUT2'  OVER 

VAOUT3  AS  'OUT 3' 

OVER  VACOMl  AS  'COMM'  OVER  VACOM2  AS  "  OVER  VACOM3  AS  " 

BY  MFRID  NOPRINT 
BY  MFR_NO  NOPRINT 
IF  VSTYP  IS  SVS  TYP 
IF  VSSTYP  IS  4V§_STYP 
END 
—  * 

-GOTO  P2B 
-  * 

-HULL2B3 
_  * 

-CRTFORM  LINE  1 


SYS  TYPE/SUBTYPE  AND  MFR/HFR  NO  SELECTION  (VASYS  SEGMENT) 


TABLE  TILE  VESSAUTO 
HEADING  CENTER 

"SPECIFIC  VESSAUTO  FILE  SYSTEM  DESCRIPTIONS  AND  GENERAL  COMMENTS' 


PRINT  VS  TYP  AS  'TYPE' 
MFRID  A§  ' MFR '  OVER  M 
VA  FN  AS  ' VAFN '  OVER  V 
VAIN3  AS  ' IN3 '  OVER  V 
VA  OUT 3  AS  'OUT 3' 

OViR  VA  COMl  AS  'COMM' 
IF  VS  T?P  IS  4VS  TYP 
IF  VS  STY?  IS  4V5  STYP 
IF  MF*  ID  IS  4MFRID 
IF  MFR  NO  IS  fcMFR  NO 


'TYPE'  OVER  VSSTYP  AS  'STYP'  OVER 
OVER  MFR  NO  AS  'NUN'  SKIP-LINE  OVER 
OVER  VAlNl  AS  'INI'  OVER  VA  IN2  AS 
OVER  VA  OUT1  AS  'OUTI'  OVER  VA  OUT2 


' IN2 '  OVER 
AS  ' OUT 2 '  OVER 


OVER  VA  COM2  AS 


OVER  VA  COM3  AS 


-IF  &OPTION  EQ  3  GOTO  HULL2C 3 ; 

-IF  &OPTION  EQ  4  GOTO  HULL2; 

-GOTO  HULL2C 
_  * 

-HULL2C1 
-  * 

TABLE  FILE  VESSAUTO 
HEADING  CENTER 

"VESSAUTO  FILE  SYSTEM  SPECIFICATIONS  AND  GENERAL  COMMENTS" 

••  II 

PRINT  VS  TYP  AS  'TYPE'  OVER  VS_STYP  AS  'STYP'  OVER 
MFR_ID  AS  ’ MFR '  OVER  MFR_NO  AS  'NUM'  SKIP-LINE  OVER 
VA  COST  AS  'COST'  OVER  VA_EFF_RAT  AS  'ERAT'  OVER 
SPECCOM1  AS  'COMM'  OVER  SPEC_COM2  AS  "  OVER  SPECCOM3  AS  " 

BY  VS_TYP  NOPRINT 
BY  VSSTYP  NOPRINT 
BY  MFRID  NOPRINT 
BY  MFRNO  NOPRINT 
END 
-  * 

-GOTO  P2C 

_  * 

-HULL2C2 
_  * 

-CRTFORM  LINE  1 

"|  SYS  TYPE/SUBTYPE  SELECTION  ( VASYS  SEGMENT) 

"i  <77  r 

" I  TYPE 
"|  SUBTYPE 
"|  <77  |" 

"|  <77  I" 

"|  <77  |" 

"|  <77  |" 

"|  <77 
"|  <77  |" 

"|  <77 
"|  <77  |" 

"|  <77  |" 

"|  <77  I” 

"|  <77  I" 

"|  [ TAB ]  NEXT  FIELD,  l RETURN )  TAKE  ACTION,  [ P F 3  ]  QUIT 

.  * 

TABLE  FILE  VESSAUTO 
HEADING  CENTER 

"SPECIFIC  VESSAUTO  FILE  SYSTEM  SPECIFICATIONS  AND  GENERAL  COMMENTS 

n  n 

PRINT  VS  TYP  AS  'TYPE'  OVER  VSSTYP  AS  'STYP'  OVER 
MFR_ID  AS  'MFR'  OVER  MFR  NO  AS  'NUM'  SKIP-LINE  OVER 
VA_COST  AS  'COST'  OVER  VA_EFF_RAT  AS  'ERAT'  OVER 
SPEC_COMl  AS  'COMM'  OVER  SPEC_COM2  AS  "  OVER  SPEC  COM3  AS  " 

BY  MFRID  NOPRINT 
BY  MFR  NO  NOPRINT 
IF  VSjfYP  IS  SVS  TYP 
IF  VS_STYP  IS  &VS_STYP 
END 
.* 

•GOTO  P2C 

.* 

-HULL2C3 


<16  <  4VS_TYP  <77  |" 
<16  <  tVS  STYP  <77  | " 


B-350-8 


* 

! 


-CRTFORM  LINE  1 

It 

-"I  SYS  TYPE/SUBTYPE  AND  MFR/MFR  NO  SELECTION  ( VASYS  SEGMENT' 

II 


-  "  1 

<77 

1  " 

-  "  1 

TYPE 

<16 

< 

&VS  TYP 

<77  1 

-  ’*  1 

SUBTYPE 

<16 

< 

4VS_STYP 

<77  | 

-  "  1 

<77 

1  H 

-  ”  1 

MFR 

<16 

< 

4MFR  ID 

<77 

1 

MFR 

NO 

<16 

< 

4MFR_NO 

<77 

<77 

1  " 

- ,f  j 

<77 

1  " 

-  "  1 

<77 

1  " 

-  M  1 

<77 

1  " 

-  "  1 

<77 

1  " 

-  •• 

<77 

1  " 

_  «*  1 

<77 

1  " 

_  *•  1 

<77 

1  " 

-M|  (TAB)  NEXT  FIELD,  (RETURN)  TAKE  ACTION,  ( PT 3 )  QUIT 

_  n _ _ _ _ _ _ _ ■■ 

_  • 

TABLE  FILE  VESSAUTO 
HEADING  CENTER 

"SPECIFIC  VESSAUTO  FILE  SYSTEM  SPECI FI  CATIONS  AND  GENERAL  COMMENTS" 

t«  tt 

PRINT  VS  TYP  AS  'TYPE'  OVER  VSSTYP  AS  'STYP'  OVER 
MFR  ID  A§  'MFR'  OVER  MFR_NO  AS  'NUM'  SKIP-LINE  OVER 

va  Cost  as  'cost'  over  va  eff  rat  as  *erat'  over 
SPEC  COMl  AS  'COMM'  OVER  5PEC~COM2  AS  "  OVER  SPECCOM3  AS  " 

IF  VfTYP  IS  4  VS  TYP 
IF  VSSTYP  IS  SVSSTYP 
IF  MFRID  IS  4MFR_ID 
IF  MFRNO  IS  4MFR  NO 
END 
_  * 

-P2C 

_  * 

-RUN 

-GOTO  HULL2C 
_  * 

-AMV2 


-CRTFORM  LINE  I 


PARTIAL  OR  FULL  REPORT  SELECTION  OPTIONS 


-"|  <77  I" 

it  | 


| 

m 

ALL  AMV  REFS  IN  VESSAUTO  FILE 

<77 

1" 

-  "  | 

(2) 

REFS  ASSOCIATED  WITH  SPECIFIC 

<77 

1” 

1 

SYS  TYPE/SUBTYPE 

<77 

1" 

| 

(31 

RETURN  TO  MENU 

<77 

1" 

-"|  <77  |n 

-  ” 

OPTION  < &OPTION  <77  | " 

-”|  <77  |" 
-"|  <77  |" 
~"|  <77  I” 
-"|  <77  I” 
-"|  <77  |" 
-"|  <77  I" 


B-350-9 


\r<' 


*>  *■  J>  ”  P  ^ 


NEXT  FIELD,  [RETURN)  TAKE  ACTION, 


IF  (OPTION  EO  2  GOTO  AMV2A2 ; 
IF  (OPTION  EQ  1  GOTO  AMV2A1 ; 
IF  (OPTION  EQ  3  GOTO  TWO; 
GOTO  AMV2 
* 

AMV2A2 

* 

CRTFORM  LINE  1 


SYS  TYPE  AND  SUBTYPE  SELECTION  (VASYS  SEGMENT) 


<77 

N 

TYPE 

<16 

<  (VS 

TYP 

SUBTYPE 

<16 

<  (VS 

STYP 

<77 

n 

<77 

N 

<77 

n 

<77 

« 

<77 

M 

<77 

ft 

<77 

*1 

<77 

t* 

<77 

n 

<77 

M 

<77 

M 

[  TAB  ]  NEXT  FIELD,  [RETURN)  TAKE  ACTION,  [ PF3 )  QUIT 


TABLE  FILE  VESSAUTO 
HEADING  CENTER 

"VESSAUTO  FILE  SPECIFIC  AMV  DATABASE  REFERENCES" 

n  n 

PRINT  VSTYP  AS  'TYPE'  VS  STYP  AS  'STYP' 

SHIPID  AS  'SHIP'  SHIPNAME  AS  'SHIP  NAME’  SHIPFLAG  AS  'FLAG 
IF  VS_TYP  IS  (VS_TYP 
IF  VSSTYP  IS  (VSSTYP 
END 
* 

GOTO  PAMV 
* 

AMV2A1 

* 

TABLE  FILE  VESSAUTO 
HEADING  CENTER 

"ALL  VESSAUTO  FILE  AMV  REFERENCES" 

H  *f 

PRINT  VSTYP  AS  'TYPE'  VSSTYP  AS  'STYP' 

SHIPID  AS  'SHIP'  SHIPNAME  AS  'SHIP  NAME'  SHIPFLAG  AS  'FLAG 
BY  VSTYP  NOPRINT 
BY  VSSTYP  NOPRINT 
END 
.  * 

-PAMV 

* 

RUN 

GOTO  AMV 2 

* 

LIT2 

* 


B-350-10 


,r 


-CRTFORM  LINE  1 


PARTIAL  OR  FULL  REPORT  SELECTION  OPTIONS 


<77  |  " 


<77 

<77  r 
<77  |  H 
<77  |  " 


[1]  ALL  LIT  REFS  IN  VESSAUTO  FILE 

[2]  REFS  ASSOCIATED  WITH  SPECIFIC 
SYS  TYPE/SUBTYPE 

[3]  RETURN  TO  MENU 

OPTION  <  &OPTI ON  <77  |" 


[TAB]  NEXT  FIELD,  [RETURN)  TAKE  ACTION,  [PF3]  QUIT 


-ir  SOPTION  EQ  2 
-IF  40PTI0N  EQ  1 
-IF  iOPTION  EQ  3 
-GOTO  LIT2 

_  * 

-LIT2A2 
_  * 

-CRTFORM  LINE  1 


GOTO  LIT2A2; 
GOTO  LIT2A1; 
GOTO  TWO; 


SYS  TYPE  AND  SUBTYPE  SELECTION  (MAIN  SEGMENT) 


<77  |  " 
TYPE 
SUBTYPE 
<77  I  " 


<16  <  *VS_TYP  <77  p 
<16  <  iVS  S TYP  <77  p 


[TAB]  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  [ PF3  ]  QUIT 


TABLE  FILE  VESSAUTO 
HEADING  CENTER 

"VESSAUTO  FILE  SPECIFIC  LITERATURE  REFERENCES" 

n  n 

PRINT  VSTYP  AS  'TYPE'  VSSTYP  AS  'STYP' 
REF_NUM  AS  'REF'  REF_DESC  AS  'DESCRIPTION' 

IF  VS_TYP  IS  &VS  TYP 
IF  VS_STYP  IS  SVS  STYP 
END 
.  * 

-GOTO  PLIT 


B-350-11 


,•»  \ 


m 


LIT2A1 


TABLE  FILE  VESSAUTO 
HEADING  CENTER 

"ALL  VESSAUTO  FILE  LITERATURE  REFERENCES 

»*  n 

PRINT  VS  TYP  AS  'TYPE'  VS_STYP  AS  'STYP' 
REF_NUM  AS  'REF'  REF_DESC  AS  'DESCRIPTION' 
BY  VS_TYP  NOPRINT 
BY  VS_STYP  NOPRINT 
END 
_* 

-PLIT 
_  * 

RUN 

GOTO  LIT2 

,  * 

THREE 
.  * 

OFFLINE  CLOSE 
ONLINE 
EX  OEB300 
END 


-RUN 

-GOTO  TOP 
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MFRREF  FILE  REPORTING  SYSTEM  -  OEB360 


•♦DESIGNED  FOR 
-♦DESIGNED  BY 
■•DATE  LAST  REV 


USCG  R&D  CENTER,  OCEAN  ENGINEERING  BRANCH 
M.  J.  STEVENS  ( VTC ) 

5/05/87 


-DEFAULTS  4OPTION-0,  &MFR_ID-$$$ 
.  * 

-CRTFORM  LINE  1 


MFRREF  FILE  REPORTING  SYSTEM  -  OEB360 


REPORTING  SYSTEM  OPTIONS 

[1]  OUTPUT  OPTIONS 

[2]  REPORT  OPTIONS 

[3]  EXIT  PROGRAM 


OPTION  — >  <  &OPTION 


[TAB]  NEXT  FIELD,  (RETURN]  TAKE  ACTION,  [ PF3 ]  QUIT 


-IF  &OPTION  EQ  1 
-IF  40PTI0N  EQ  2 
-IF  &OPTION  EQ  3 
-GOTO  TOP 


-CRTFORM  LINE  1 


GOTO  ONE; 
GOTO  TWO; 
GOTO  THREE; 


REPORT  OUTPUT  OPTIONS  MENU 


OPTIONS  LIST 

[1]  DIRECT  OUTPUT  TO  CRT 

[2]  DIRECT  OUTPUT  TO  PRT 

[3]  REPORT  DIRECTORY 


OPTION  — >  <&OPTION 


(TAB]  NEXT  FIELD,  (RETURN]  TAKE  ACTION,  ( Pf3 ]  QUIT 


•IF  &OPTION  EQ  I  GOTO  MAINl; 


B-360-1 


l 


,■  v  v  ■ v.v: 


S' 


-IF  &OPTION  EQ 
-IF  &OPTION  EQ 
-GOTO  ONE 
.  * 

-MAIN1 
_  * 

OFFLINE  CLOSE 
ONLINE 
END 
.  * 

-CRTFORM  LINE  1 

_  M  W 
_  tr  n 
bH  M 

_  H  tl 
It 


.  "  M 
.  M  H 
tl  H 


GOTO  HULLl ; 
GOTO  TOP; 


ALL  REPORTS  WILL  OUTPUT  TO  SCREEN  I" 


PRESS  RETURN  TO  CONTINUE  C&OPTION  " 


_  * 

ft 

-RUN 

v? 

-GOTO  ONE 
_  * 

& 

-HULLl 

B 

_  * 

»  * 

a 

»  / 

OFFLINE 

END 

S' 

tv 

-CRTFORM 

>• 

—  it « 

£ 

_  it  it 

y 

_  It  It 

—  M  W 

_  rt 

■v 

it 

% 

_  it 

.  "  n 
>  M  " 
tl  H 


.  * 

-RUN 

-GOTO  ONE 
.  * 


ALL  REPORTS  WILL  OUTPUT  TO  PRINTER 


PRESS  RETURN  TO  CONTINUE  <40PTI0N 


-TWO 

.* 

-CRTFORM  LINE  1 


<77  | 


[3]  SPECIFIC  MANUFACTURER 

[4]  REPORT  DIRECTORY 


OPTION  — >  <  &OPTION 

<77 

<77  |" 


"|  [TAB]  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  [ PF3 ]  QUIT  |" 

I*  ______  _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _  It 


-IF  40PTI0N 
-IF  &OPTION 
-IF  &OPTION 
-IF  &OPTION 
-GOTO  TWO 


EQ  1  GOTO  MAIN2; 
EQ  2  GOTO  HULL2; 
EQ  3  GOTO  AMV2; 
EQ  4  GOTO  TOP; 


-MAIN2 


TABLE  FILE  MFRREF 

HEADING  CENTER 

"MFRREF  FILE  MASTER  LISTING" 


PRINT  MFR_ID  AS  'ID'  SKIP-LINE  OVER  MFR  NAME  AS  'NAME'  OVER  MFR_ADDl  AS  ' ADD1 ' 
OVER  MFR_ADD2  AS  ' ADD2 '  OVER  MFR_ADD3  A§  ' ADD 3 '  OVER  MFRPHONE 
AS  'PHNE'  OVER  MFR_REP  AS  'REP' 

BY  MFRID  NOPRINT 
END 

-RUN 

-GOTO  TWO 
_  * 

-HULL2 
_  * 

TABLE  FILE  MFRREF 

HEADING  CENTER 

"MFRREF  FILE  MASTER  LISTING" 

M  If 

PRINT  MFR_ID  AS  'ID'  OVER  MFRNAME  AS  'NAME'  OVER  MFR_ADDl  AS  ' ADD1 ' 

OVER  MFRADD2  AS  ' ADD2 '  OVER  MTR_ADD3  AS  ' ADD 3 '  OVER  MFR_PHONE 
AS  'PHNE'  OVER  MFRREP  AS  'REP' 

BY  MFRNAME  NOPRINT 
END 
_  * 

-RUN 

-GOTO  TWO 
_  * 

-AMV2 
_  * 

-CRTFORM  LINE  1 


MFR  SELECTION 


-"I  <77  |" 

-"|  MFR  <16  <  SMFR_ID  <77  |" 

-"|  <77  |" 

-"|  <77  I" 

-"|  <77  |" 

-"|  <77  I" 

-"(  <77  |" 

-”|  <77  |" 

-"|  <77  |" 


B-360-3 


(TAB]  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  ( PF3 ]  QUIT 


TABLE  FILE  MFRREF 

HEADING  CENTER 

"MFRREF  FILE  MASTER  LISTING" 


PRINT  MFR_ID  AS  'ID'  OVER  MFR  NAME  AS  'NAME'  OVER  MFR_ADD1  AS  ' ADD1 1 
OVER  MFR_ADD2  AS  ' ADD2 '  OVER  MFR_ADD3  AS  ' ADD3 '  OVER  MFR  PHONE 
AS  'PHNE'  OVER  MFR_REP  AS  'REP' 

IF  MFRID  IS  &MFR_ID 
END 
.* 

-RUN 

-GOTO  TWO 
.  * 

-THREE 
.  * 

OFFLINE  CLOSE 
ONLINE 
EX  OEB300 
END 


RUN 

GOTO  TOP 


I 

i 

j 

j 

I 

t 

i 

i 

i 


-  * 
_  » 


OEBREF  FILE  REPORTING  SYSTEM  -  OEB370 


••DESIGNED  FOR  :  USCG  R4D  CENTER,  OCEAN  ENGINEERING  BRANCH 
■•DESIGNED  BY  :  M.  J.  STEVENS  ( VTC ) 


♦DATE  LAST  REV 

:  5/05/87 

* 

* 

TOP 

DEFAULTS  4OPTION-0,  4KEY  WORD-$$$$$$$$$$$$ ,  4REF  NUM«$$$$$$ 

CRTFORM  LINE  1 

M 

•l 

"1 

II 

OEBREF  FILE  REPORTING  SYSTEM  -  OEB370 

1  " 

*1 

If  1 

It  I 

If  1 

If  1 

REPORTING  SYSTEM  OPTIONS 

1  ” 

1  " 

1  ” 

1  " 

1 

If  | 

(1]  OUTPUT  OPTIONS 

1 

If  | 

{2]  REPORT  OPTIONS 

1  " 

It  | 

If  I 

(31  EXIT  PROGRAM 

1  M 

I  " 

If  | 

If  I 

II  I 

OPTION  — >  <40PTI0N 

1  " 

"|  <77  |" 

1  ' 

"|  <77 

"|  <77  |- 

It 

"1 

If 

(TAB]  NEXT  FIELD,  { RETURN ]  TAKE  ACTION,  (PF3J 

QUIT 

1  " 
II 

* 

IF  &OPTION  EQ  1 

GOTO  ONE; 

IF  40PTI0N  EQ  2 

GOTO  TWO; 

IF  40PTI0N  EQ  3 

GOTO  THREE; 

GOTO  TOP 

ONE 

CRTFORM  LINE  1 

If 

ft 

”1 

If 

REPORT  OUTPUT  OPTIONS  MENU 

1  ” 
•1 

"1 

”1 

"1 
"  | 

OPTIONS  LIST 

1  n 

1  ” 

1  N 

1 

i 

”1 

(1]  DIRECT  OUTPUT  TO  CRT 

\ 

1  " 

"1 

[2]  DIRECT  OUTPUT  TO  PRT 

1  M 

"1 

”1 
«  1 

[3]  REPORT  DIRECTORY 

i  '* 

1  W 

1  •* 

1 

"1 

"1 

OPTION  -->  < 40PTI0N 

1 

1  ” 

1  " 

"|  <77  |" 

1 

”|  <77  |" 

n 

II 

”1 

M 

[TAB]  NEXT  FIELD,  (RETURN)  TAKE  ACTION,  (PF3J 

QUIT 

1  ” 
It 

* 

IF  &OPTION  EQ  1 

GOTO  MAIN1; 

IF  40PTI0N  EQ  2 

GOTO  HULL1; 

OFFLINE  CLOSE 
ONLINE 
END 
• 

CRTFORM  LINE  1 


ALL  REPORTS  WILL  OUTPUT  TO  SCREEN  |" 


PRESS  RETURN  TO  CONTINUE  <SOPTION 


-RUN 

GOTO  ONE 
* 

HULL1 

* 

OFFLINE 

END 

* 

CRTFORM  LINE  1 


ALL  REPORTS  WILL  OUTPUT  TO  PRINTER 


PRESS  RETURN  TO  CONTINUE  <40PTI0N 


RUN 

GOTO  ONE 


K  kr^^U  fc/  urmJulJ  1^  U  L>u  U.1JU j 


<77  |  " 


{4]  REFS  BY  KEYWORD 

[5]  SPECIFIC  REF  ABSTRACT 

[6]  REPORT  DIRECTORY 

OPTION  — >  <  &OPTION 


(TAB)  NEXT  FIELD,  [RETURN)  TAKE  ACTION,  [ PF 3 )  QUIT 


-IF  40PTI0N  EQ  1  GOTO  MAIN2 ; 

-IF  &OPTION  EQ  2  GOTO  HULL 2 ; 

-IF  &OPTION  EQ  3  GOTO  AMV2 ; 

-IF  40PTI0N  EQ  4  GOTO  LIT2; 

-IF  iOPTION  EQ  5  GOTO  ABS2 ; 

-IF  &OPTION  EQ  6  GOTO  TOP; 

-GOTO  TWO 
_  * 

-MAIN2 
-  * 

TABLE  FILE  OEBREF 
HEADING  CENTER 

"OEBREF  FILE  LISTING  BY  REFERENCE  NUMBERS" 

n  n 

PRINT  REF  NUM  AS  'NUMBER'  SKIP-LINE  OVER  REF  TITLE  AS  'TITLE'  OVER 
REFSOURCf  AS  'SOURCE'  OVER  REF  REP  NO  AS  ' RfP  NO'  OVER  REF  JN  VOL  AS 
'JN  VOL'  OVER  REF_PUB_DT  AS  ' PUl  DTt 
BY  REFNUM  NOPRINT 
END 
-  * 

-RUN 

-GOTO  TWO 
-  * 

-HULL2 
_  * 

TABLE  FILE  OEBREF 
HEADING  CENTER 

"OEBREF  FILE  LISTING  BY  TITLES" 

N  »• 

PRINT  REF_NUM  AS  'NUMBER'  SKIP-LINE  OVER  REF  TITLE  AS  'TITLE'  OVER 
REFSOURCE  AS  'SOURCE'  OVER  REFREP  NO  AS  'REP  NO'  OVER  REF_JN_VOL  AS 
'JN  VOL'  OVER  REFPUBDT  AS  'PUB  DT' 

BY  REFTITLE  NOPRINT 
END 
_  * 

-RUN 

-GOTO  TWO 

_  * 

-AMV2 
_  * 

TABLE  FILE  OEBREF 
HEADING  CENTER 

"OEBREF  FILE  LISTING  BY  AUTHORS" 

It  « 

PRINT  REF_NUM  AS  'NUMBER'  SKIP-LINE  OVER  REF  TITLE  AS  'TITLE'  OVER 
REFSOURCE  AS  'SOURCE'  OVER  REF_REP_NO  AS  ’REP  NO'  OVER  REF_JN  VOL  AS 
'JN  VOL'  OVER  REF_PUB  DT  AS  'PUB  DT'  OVER  AUTH_LN  AS  'L  NAME'  OVER 
AUTHFN  AS  'F  NAME'  OVER  AUTH_MI  AS  'M  INIT' 

BY  AUTH  LN  NOPRINT 
BY  AUTHFN  NOPRINT 
BY  AUTHMI  NOPRINT 
END 


B-370-3 


RUN 

GOTO  TWO 

* 

LIT2 

* 

-CRTFORM  LINE  1 


KEYWORD  SELECTION  FOR  REFERENCE  DISPLAY 


KEYWORD 

<16  <  4KEY_WORD 

<77 

i  " 

<77 

1  " 

<77 

1  " 

<77 

1  " 

<77 

1  " 

<77 

1  " 

<77 

1  " 

<77 

1  " 

<77 

1  " 

<77 

1  " 

<77 

1  " 

<77 

1  " 

TAB]  NEXT  FIELD ,  (RETURN]  TAKE  ACTION,  [ PF3 ]  QUIT 


TABLE  FILE  OEBREF 
HEADING  CENTER 

"OEBREF  FILE  REFERENCES  BY  KEYWORD” 

n  n 

PRINT  KEY  WORD  AS  'KEYWORD'  SKIP-LINE  OVER  REFTITLE  AS  'TITLE'  OVER 
REFNUM  AS  'REF  NUN' 

BY  REFNUM  NOPRINT 
IF  KEYWORD  IS  4 KEYWORD 
END 
• 

RUN 

GOTO  TWO 
* 

ABS2 

* 

CRTFORM  LINE  1 

REFERENCE  SELECTION  FOR  ABSTRACT  DISPLAY 


<77  |  " 

REF  NUMBER 
<77  |  " 

<77  |  " 

<77  |  " 

<77  |  " 

<77  |  " 

<77  |  " 

<77  |" 

<77  |  " 

<77  |  " 

<77  |  " 

<77  |  " 

<77  I" 


<16  <  (REF  NUH  <77 


[TAB]  NEXT  FIELD,  [RETURN]  TAKE  ACTION,  ( PF 3 ]  QUIT 


B-370-4 


TABLE  FILE  OEBREF 
HEADING 

"OEBREF  FILE  REFERENCE  < REF_NUM>  ABSTRACT" 

"TITLE  :  <REF  TITLE>  " 

l»  H 

•PRINT  REF_N*JM  AS  'REF  NUM'  OVER  REF_TITLE  AS  'TITLE 
PRINT  ABS_TEXT  AS  'ABSTRACT' 

IF  REFNUH  IS  4REF  NUM 
END 
* 

RUN 

GOTO  TWO 

* 

THREE 

* 

OFFLINE  CLOSE 
ONLINE 
EX  OEB300 
END 
* 

RUN 

GOTO  TOP 
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1 . 0  Introduc  t ion  . 
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3.6 
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MAINREF  . 

3.7 
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REFEXPTS 

3.8 

File 

REFLOCS  . 

3.9 
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TESTREF  . 

3.  10 

File 

MOTIONS  . 

3.11 

File 

SPECTRA  . 

3.12 

File 

NOISE  ... 

3.13 

File 

POWR  FUEL 

3.  14 

File 

UNDERWAY 

3.15 

File 

MANEUVER 

1.0  Introduction 


The  Marine  Systems  Branch  of  the  L! .  S  .  Coast  Guard  Research  & 
Development  Center  is  in  the  process  of  developing  a  SHIPS  database 
part  of  the  Advanced  Marine  Vehicles  project.  The  design  for  the 
database  has  essentially  been  completed  and  efforts  are  underway  to 
award  a  contract  for  the  development  and  implementation  of  the 
application  in  the  near  future. 

This  appendix  provides  available  documentation  on  the  design  to 
date  provided  by  the  Marine  Systems  branch.  Following  a  "schematic" 
the  system  are  the  AMVDB  file  structure  diagrams  and  Master  File 
Descriptions. 
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STRUCTURE  Of  FOCUS  riLE  UNDERWAY  ON  R4/R9/I7  AT  15.  M.1T 


